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Two 

Distinguished 
Products for 
PDP-11... 

And now VAX 
Users 


INTAC" 

MAPS” 


Interactive 

Data Base Management 

INTAC is a new concept for data 
storage and retrieval that features 
an easy-to-use question and 
answer format, built-in edit rules, 
multi-key ISAM data access, inter¬ 
active inquiry and a unique report 
generator. 


Financial 

Modeling 

MAPS, recognized worldwide for 
over five years as a leader in finan¬ 
cial modeling and reporting, is 
used to construct budgets, finan¬ 
cial forecasts, consolidations and 
“what if” analyses. 


Ross Systems, with over seven years of 
proven capability, now offers these two 
products to current and prospective 
PDP-11 and VAX users. INTAC and 
MAPS enable business managers to 
produce instant reports themselves, and 
relieve DP managers from the pressures 
of special requests. 

Ross Systems offers these management 
tools on our timesharing service, for 
license on existing computers and as 
part of a complete. In-house timesharing 
installation. 


Call us collect for more information. 



ross systems 

corporsted 


1900 Embarcadero Road, Suite 208, Palo Alto, CA 94303 


(415) 856-1100 • Other offices In San Francisco and Los Angeles 
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Reliable, Economical Printer Systems 
At 200,300,600 & 9001pm. 



For DEC, Data General, Hewlett Packard, Texas Instruments 
and most other popular computer systems. 


sfLowCost. 

Initial low purchase price, plus the long-term savings 
resulting from inherent reliability. 

§0 High Performance. 

At 200, 300, 600 and 900 lines per minute. 

^ Quiet. 

Set new industry standards for impact technology. 

Reliable. 

Built for heavy-duty applications. 

^ Superior Print Quality. 

Achieved through fully formed steel band technology. 

^ Easy-to-maintain. 

Latest microprocessor technology and diagnostics make 
these printers the products for the '80s. 

^ 30-Day Delivery. 

^ The Industry Leader At Your Service. 


SfCuaranteed Compatibility. 

SSI's interfacing technology guarantees compatibility with 
DEC, DG, HP, Tl, Perkin Elmer and most other processors. 

^ Parallel or Serial. 

SSI's pioneering approach in interface technology allows 
you the choice of parallel or serial operation. In serial 
interfacing, SSI also offers both asynchronous and the 
synchronous needed for IBM and Burroughs Poll and 
Select, plus others. 

Nationwide Service. 

Unmatched quality of service through SSI's innovative 
central dispatch control system. 

^ Band-Change Flexibility. 

Many different bands provide many different typefaces 
with a single change by the operator. Special bands 
available also. 


I'd like to know more 
I about the following 
' printer system(s); 

I —200 Ipm impact matrix 
* -The B series (300 or 
I 600 Ipm band) 

I _High speed 900 1pm 
I band 

I —The 2200 series (300, 

I 600, 900 Ipm drum) 

' -The 2550 (1500 Ipm 
I charaband) 

I —QT series (600, 1000, 

I 1200 Ipm heavy duty 
I band printers) 

— Serial Interfacing 
(synchronous or' 

' asynchronous) 

I —Parallel Interfacing 


My computer 


is a 



My requirements are: _Immediate 

_3-6 months _Information Only 

Name_ 

Title_ 

Company_ 

Ad d ress_ 

City_ 

State_Zip_ 


L 


Telephone. 


CD581 


J 



Southern Systems 

The Printer System Problem-Solvers 

2841 Cypress Creek Road 
Fort Lauderdale, Florida 33309 
(305) 979-1000; (800) 327-5602 
Telex 522135 






















Everyday we find the pressure to 
produce is being pushed on the pro¬ 
gramming staffs around the world. 
Programmer productivity is the name 
of the game. 

Application Development is a time 
consuming process, and without the 
proper tools, even the best program¬ 
mers can get lost in the shadows. 

Amcor has the solution for the produc¬ 


tivity problem... AMBASE, our revo¬ 
lutionary Application Development 
System and DBMS. AMBASE is 
designed to work with DEC PDP-11 
computers utilizing the RSTS/E 
operating system. 

AMBASE is helping technical staffs 
worldwide to improve their produc¬ 
tivity from 100-900%. Jobs that took 
10 days are being completed in 1 
day with AMBASE. 


Please forward information on the following systems: 


□ AMBASE 

□ Accounts Receivable 

□ Accounts Payable 

□ GUFinancial Mgt. (AMFACS) 

□ Payroll 

□ Order Processing 

□ Inventory Control 

; 1900 PLANTSIDE DRIVE □ Sales Analysis 

■ LOUISVILLE, KY. 40299 

I 502/491-9820 

L_ 



Name_ 

Company_ 

Address_ 

City_ 

Telephone _ 

Computer Type. 


So don't get lost in the shadows, let 
AMBASE put you out in front. 

For more information on AMBASE. 
or any of AMCOR's complete line of 
data base oriented applications, give 
us a call, or use the coupon provided 
below. 

Software for DEC 
RSTS/E Systems 

-j 


State_Zip 


.Operating System^ 


_J 

•DEC IS a TRADEMARK of Digital Equipment Corp 
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From the editors... 

waiting . . . 

Carl Marbach 

Version 7.0 was in its time a neat piece 
of software. It had all kinds of good new 
things; big (better.faster) FIP, Data caching. 
QSTATS, lots of new MODES, ANSII magtape 
routines and lots more. It was a definite im¬ 
provement over V6C. Sure, it had its 
problems, but these would be fixed in the 
next release — wasn’t that just a year 
away? 

In the Golden. Olden days, when you 
purchased a one year support contract for 
RSTS it guaranteed you at least one new 
release. We became used to a release cycle of 
about 1 year. 0kay.4t slipped once and a 
while to 18 months, but the clear Inference 
was that we could expect releases at about 
1 year intervals. In 1975 we were running 
V6A. In 1980 we were through 6B. 6C and 
7.0 giving us 4 versions in 5 years; pretty 
close to the cycle we were describing above. 

December will mark two (2) years since 
V7.0 hit the streets and the best DEC GUESS 
is that the next version is still about 1 more 
year away! Three years! What’s going on? 
Hardware hasn’t exactly been quiet over 
these 2 years; RM05. 11/24, immediate 
delivery (!) on LS120’s and VTIOO’s, MOS 
memories and more. 

Maybe V7.0 is so solid it doesn’t need a 
new release. But what about the 11/70 
small buffer problem, the 11/34 task 
building problems (it’s still task building!), 
the RM05 support (it costs extra). 11 /24’s 
are anyone’s guess. Stats that don’t work 
and worse (they give erroneous figures) and 
more. Why is it that RSX seems to get the 
new bells and whistles first; DECNET, 2780 
support. FORTRAN 4 PLUS. 

Of course the commercial marketplace 
has made RSTS one of the most active 
operating systems around. There is Word 
Processing, List processing. Data bases, Que- 
ing systems, backup packages, magazines, 
disk structuring packages, modeling 
systems, languages and editors — all from 
sources other than DEC. Just look through 
this magazine for all the good people work¬ 
ing for your money. 

Insiders tell me that all this time is be¬ 
ing spent figuring out the BEST solution to 
these problems. That they will be worth 
waiting for. How do all of you out there feel 
about paying for three years for support 
and not seeing a new release? We think that 
although two women can’t make a baby in 
less than nine months, two RSTS developers 
could produce a new version of RSTS twice 
as fast as one. Message: get off INDENT. 
GIGI and frills; make RSTS work the way it 
should. 

What are you waiting for? 


Andy Riebs spelling the 
small buffer relief 


DECUS MIAMI 
The Tide Has Turned 


Dave Mallery 

The big news from Miami is that two 
years of stone-walling has ended. DEC is 
talking to us again! One is tempted to at¬ 
tribute the thaw to the effect of tropical 
breezes and sunny skies on those in¬ 
habitants of the frozen north, but I’d rather 
think that there have been some fundamen¬ 
tal changes in policy. 

This was obvious right from the start. 
As soon as the opening salvos of what I had 
predicted would be ’Buffer Wars" were 
fired, the development folks informed us 
that they were promising relief in the next 
release and would tell us more at a later ses¬ 
sion. The next morning, at a session entitled 
"Building a RSTS Monitor’’, Andy Riebs from 
the development team disclosed two ap¬ 
proaches that were in the works to provide 
the relief. 

First, a new memory pool would be 
established to hold WCB’s and FCB’s. 
Secondly, selected code segments would be 
re-worked to utilize "I and D’’ space—a hard¬ 
ware feature never before used by RSTS. 
Basically, this presents the developer with 
another set of memory mapping registers to 
use for buffer pools and the like. Please be 
very clear that nothing in this article, as well 
as nothing said at Miami represents a firm 
committment by DEC. It is imperative that 
we accept this information in the spirit in 
which it was given. 

There was also some bad news. The 
next release is more than six months away. 

This symposium was highlighted by 
many excellent user papers. Mike Mayfield 
from Northwest Digital Software delivered a 
six hour marathon on Monitor Tables to 
large, late night audiences. 

Mark Diebert from Squibb gave an ex¬ 
cellent paper entitled “So Your Disk Is Ir¬ 
revocably Corrupt" shedding a great deal of 
light on one of the more ominous init error 
messages. 

Joyce Hayes and Steve Stepanek gave a 
three session TECO wonderland tour. It’s 
amazing how some things never die. I have 
attended more funerals for RSTS and TECO 
than I care to remember. I heard about one 
site, in Rochester, NY, that uses about forty 

. . . continued on page 28 
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DEC PDP 11 and VAX-11/750 

FAMILY OF MINI-SYSTEMS 


Software Packages Include: 

□ Word Processing □ System Resource Accounting 

□ Inventory Control and Performance Monitoring 

□ Information Storage D File Security & Incremental 

and Retrieval Backup System 

□ Retail Office Supply □ Container Optimization 


RENTAL • 
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Answer 


TOLL FREE 


Hamilton Rentals 

One Penn Plaza, New York 10119 
Pearl Court, Allendale, New Jersey 07401 
415 Homer Avenue, Toronto M8W4W3 


In New York call: 212-695-1936 
In Canada call: 416-251-1166 
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Digital Equipment Corporation 
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LETTERS to the RSTS Pro... 


Dear Dave and Carl, 

My subscription to your excellent magazine is 
now being handled through Pauline [Noakes] in 
the U.K. As an ‘original’ subscriber, since you gave 
me my first free copy at DECUSSan Diego, 1979,1 
would like to say that the articles have been getting 
better and better with each issue (1 like the new 
VAX section — keep it going!) and it’s a shame 
that you only publish quarterly. Many thanks. 

Yours sincerely, 
Collin Shaw, Berkshire, England 
P.S. I also appreciate the MACRO-ll sections! 
Thank you, Collin, it’s nice to know that you’ve 
been with us since Volume 1, Number 1. We made 
a wise investment and so did you. 

Dear Carl, 

I was pleased to see my article that you published 
in the May/June 1980 issue of the RSTS Profes¬ 
sional. You might be interested to know that since 
it appeared, I have moved to Memphis, Tennessee, 
and become a software specialist for Digital. 

I think very highly of your magazine. The arti¬ 
cles are very informative and especially useful for 
new RSTS users. I strongly recommend the publi¬ 
cation to everyone. 

Might 1 suggest a topic for an article sometime? 
I’d like to see a review of the word processing 
packages available that run under RSTS. Techni¬ 
cal details such as effect on system load, run time 
system versus multiple copies of a program, etc., 
would be useful plus an evaluation of user ease, 
stability of product and the company marketing 
the product. 

Thanks again. 

Sincerely, 

Susan Blount Duff, Software Specialist 
We like ypur suggestions, Susan. Stay in touch. 

Dear RSTS Pro, 

Early one Saturday, no, late Saturday nite, now 
early Sunday morning, I found myself reading 
back issues. The (obvious) motive: Plagiarism. 

Nonetheless, I discoverd a picture of a Datame- 
dia DT-80 in Vol. 1, No. 1, but I couldn’t find a 
later reference. Has anyone collected that T-shirt 
yet? 

We have 3 DT-80’s in house, and 2 have blown 
their ROMS, requiring strapping to provide ElA 
RS-232 signals for our modems. Did yours (or 
others) do this? 

Steve Suttles, Systems Programmer 
Interlake, Inc., Chicago, Ill. 
Steve, RSTS MAN says, ’’Watch static electricity 
as these terminals seem very sensitive. Non-volatile 
RAM failures are (unfortunately) common to 
many of these.” 

As for the photo contest in our first issue, look 
no further - there is no later reference. We thought 
we had everyone ’’stumped” [in reality, however, 
most readers probably wanted to see if there would 
be a second issue]. I suppose you want to be 
awarded a famous RSTS Professional T-shirt for 
your answer, well... at this late date we’d have to 
hold a staff conference to decide. Rest assured, 
we’ll take the matter under consideration just as 
soon as we get the staff to sit still for a few minutes. 

tF TTOPNF ERRATA 

Dear RSTS Professional: 

This is a letter to say thank you, and to point out 
a bug in the method used to translate source to the 
printed page. 


In the March, 1981 issue you published “Control 
F, Open Files Support”. Which in one swell foop 
restored my faith in the entire magazine publishing 
industry. Please convey my thanks to Steven P. 
Davis for allowing you to publish such a useful 
patch. 

However, the caret characters ( A ) were 
dropped from the two files that made up the article. 


TTOPNF. MAC 


TTSYSF:: (etc) 

BIC AC<63. *2>,R3 

OUTPNT: (etc) 


BIC AC<177>,R2 
TTDVR. TEC 

EBTTDVR. MAC$$@ AA/Found “TTDVR. 
MAC” (etc) 

There seemed to be a late name change. The 
filenames TTOPNF and TTSYSF seem to be inter¬ 
changeable so I opted to use what seemed to be the 
more consistant name of TTSYSF. 

Also decoding the TECO source usage of $ or 
character and $ for <ESCAPE> got a little bit 
silly. It might have been a good idea to have 
expanded the occurences of <ESCAPE> in the 
file to <£SC> or something as distinctive. For 
your information a copy of the file expanded in this 
fashion is enclosed. I also took the liberty of adding 
a carriage return or two. 

Paul Ralston, Engineer 
Data Node, Inc., Sunnyvale, CA 
am LATE FLASH!!!!! 

OOPS: The was also dropped. This is much 
more serious as MACRO complains not. 

MORAL: DO NOT RUNOFF MACRO SOURCE. 

ESTTDVK nAC<E«C><:E<t> 
t A/Fountf “TTDVR HAC ' - working/ 

VCE»t . S/AWR-.:E»t:.FR/AUR/SPD/E»c <E»c. 

NORC TTSVST.;Eke;^l 

ORC TTOPNF , OPEN PILES CODE 

<E»c .' <E»c> 

NTIACRR <Etc><EBe>-STI*CTT<E»e> 

LI. TIACFF - F HANDLER 
<E»c><E»c>8TI»CTT vE<c><Esc> 

LITIACFF ..HANDLE CONTROL/F (OPEN FILES) 

<E»t;-<E»c> 

SBNE 40«CEbc>S. . <E»c>K 

INOPE. IT IS CONTROL/T OR CONTROL/F 

<E*c;vX«c> 

S40* >;E»c>I CHP R3|^F-|00 ..CONTROL/F HAVBE^ 

BEQ 604 ,.VEP. HANDLE IT 

<E»c>:E»t> 

LI50* <E»e><E»e> 

31 I 

604 CALL HAPPED. R5. TTOPNF ..00 TRY FOR OPEN FILES 

BR *>04 . DO SANE AS CONTROL/T 

<:Eic:'<E*t> * 

STTSVST <E«c><E»c> 

3LI THPORC TTOPNF 

TTOPNF sec . . SAV ILLEGAL UNLESS OVERLAID 

RETURN .. AND EXIT 

UNORC 

CE««>CE»t> 

N WORD ‘C-tOO<E»c> 

OLI WORD 'F-lOO 

<E*c;><E«c> 

N WORD TI4CCC :E»t>:E»c> 

OLI WORD TI4CFF 

<E»c.»<Eic> 

EX<Etc><E«c> 

>CE»e><E»e;> 

Our readers keep us on our toes! A t-shirt is going 
to Paul for pointing out this error to all of us. 

Gentlemen: 

May I make an unsolicited recommendation 
regarding the publishing of source code for pro¬ 
grams, subroutines and specifically the monitor 
code listed for ctrl/F7 Your intent is clearly to 
publish routines which can be used by entering the 
code listed in the article and following the installa¬ 
tion procedure. To wit: 

1) Have someone attempt to implement the 
program from the article. 

2) Publish ASSEMBLY listings, not raw 
macro code or something with a checksum capabil¬ 


,CONTROL/F (OPEN FILES) 

.CONTROL/F (OPEN FILES) 


ity so that the reader can easily observe if he/she 
has entered the listing correctly. 

3) Use a printer which prints all ASCII char¬ 
acters. The AF article has published without 
benefit of a printer which had the “A” and 
characters. These characters appeared as a 
CHR$(32%). 

Had someone attempted to implement the 
ctrl/F article he would have quickly found the 
rather conflicted naming of the module and its 
entry point as “TTSYSF’ and “TTOPNF” in 
sundry places throughout the article. 

The PAT.TSK program will compute check¬ 
sums for an OBJ module and I presume that PAT- 
.S AV does also. Some reader should also be able to 
provide a good checksum process for Basic Plus 2, 
Basic +, or TECO code. This would be invaluable 
in determining if the code was entered properly by 
the installe. 

Many thanks for interesting and informative 
articles. With a little more effort you can save the 
readers many frustrating hours. 

Gary ap Kohls, Programming Manager 
Star Plan Data Processing 
Milwaukee, W1 

P.S. My monitor is patched for the moment to 
treat a AF as a AT as without this patch RSTS 
reboots to “OPTION: ” when the first A F is typed! 

See corrected version on page 35. 

One more last minute answer to our December ^ 
1980 “Best Caption” contest. 

64 jobs? 128 keyboards? 1000 small buffers?!! 

Dave Kachelmyer 
North County Computer Services, Inc. 

Escondido, CA 

Pretty good, Dave. However, the caption that 
tickled Dave Mallery the most was: 

’’Small Buffers?? — Oh, I’ve got 2 of those. ” 

Our winner, therefore, is Kim Branch. Daniel 
International Corp. We’re sending Kim a small 
(but valuable) RSTS Professional Tee-shirt. 


How TECO? Why TECO! Who TECO? 


Dear Dave: 


I thought you might find the attached advertise¬ 
ment from today’s Los Angeles Times, amusing. 

Sincerely, 

Richard A. Marino, Vice President 
Data Processing Design, Inc. 

Placentia, CA 


Tampa Electric 
becomes 
TECO Energy. 


Tampi Elrrtnc Coinfwn>'. an invniuf-OMrnrd puMw uhiili' )U4 
bwn mving (hr rirctnul nerds at CtMln Twnpa and pkm o( wnt 
ondal Fton^ tof morr (han 81 vrart 

OwrtHnr. «v*ha«raci)uircdii)lirfmrrKV'rrlaWdbiMinrsvslo 
bmrrirrvrourniMumm Nuh tomro((Imrbuimnw*(save 
nfMndfd twvond pcmsdinK *rt \kt to Tam|>a Ekrtnc mm pndnaH, 
opnatmns m the KroM-mi; pm-rp iiurirlf4air 

'loi^ua((ratnlinanQalandunianiiationalllnab)bi>. our 
diarrhcAdm nvenOy api^'td (hr cirahon of a Imiding cnmfiani 
TECOEnrrg\. Inr TECOEnrriti mm holds (hr 
Tamfa Elacliic ContfMns and its lunnrr suhstdiaii .umpanirs 

The TECO Energx' famil\ 
of companies tndudes five principal 
subsidiary companies: 

’ Tampa Electric Company amnnum h. tw l)ir principal 

opprann); suhsidiarv Its prcdtiminanlK cnal hnd K>-ni*rahnf; 
tutums wrvr (lie rirvirical rnrrKN nndsol rntwi than TT0(X*> 
(SMIiwnrcs in and aniund (hr husihnfi Crratpr Tampa an-a 

• ElectroCoal Transfer Corp. i*arapdh gnmm* 

buB Murapr and traivsIrT Irtrmrul scnith <4 Ntm OiWan. im Ihi' 
Mwkwii pp i Riwt Coal fcir Tampa Ekclni Cumpani and other 
caatomm is handled al EbnnvCiwl 

• Gulfcoast Transit Company op-raiesoc*an e«.8 

barges and lu(s hi transpotl cual lu umpa. and hi tiaul cxwl and 
other buBk products ior other cvshitnrrs 

• Mid-South Towing Company hauls coal ior 

Tampa Ebctnc on the Ohio and Mississippi Risers 

• Cal-GloCoal, Inc. , a cvial mirang and procrssinit 

cotnpani in eastern Leniuciv is Tampa EtielrK Csenpanv s 
prmnpal source ot knwsulhir cnal 

Asoi Apnl 16. (he Ness Viek Stork Evtsangeshek laNss inllir 
nesvspaprrs unO shim TECO Energs Im . as TECO. lampi wiH 
no longer hr shim-n The acker s>-mbi4 neinnues hi be TE Furime* 
inlonnalion about TECO Energs. Iiv . please is me hi 
TECO Energy Inc . PO Bos III Tampa. FLUbOl • 
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VAXinatkni 

fw IHX;* Users. 


System Industries disk Storage. For immunity 
against high prices, slow delivery and limited choice. If your VAX-11/780* is wait¬ 
ing for RPOX/RMOX drives, you stand to lose a lot more than valuable time. You stand to 
lose on price/performance, too. 

We can help. We're System Industries, the world's largest independent supplier of com¬ 
plete disk systems for DEC users. 

Add on or trade out, we'll save you big money. We've been saving DEC users 
big money on large-capacity disk storage for more than 10 years. And we've made it easy. 

We can simply add to your present disk storage. Or we can trade your RPOX/RMOX 
drive(s) for one of our superior disk systems. Whichever way you choose, you can count on 
100% software transparency. And substantial dollars saved. 

Get a wide choice, including Winchester-SMD combos. Shared data base 
with multiple CPUs . . . nonstop operation featuring multiple drives . . . one of our many 
field-proven system configurations is ideal for your VAX disk storage needs. 

We even offer Winchester-SMD combos that pack 900 Mbytes into the same floor space 
you may be using for 300 Mbytes (RM04/05). By trading your RM04/05 for our Winchester- 
SMD combo, you can net an additional 600 Mbytes. And pay no more than the cost of an 
RM04/05 from DEC. 


Worldwide service and 30-day delivery. We've built our entire business 
around fast, effective service. Beginning with responsive delivery—30 days ARC—and 
following with customized service con¬ 
tracts, we provide the support to get your [ INNUNIZATION REQUEST 
system up fast. And keep it running. 

So why wait for DEC. Take the 
System Industries VAXination today. It's 
a sure cure for slow delivery and poor 
price/performance. For de¬ 
tails, contact the sales 
office nearest you. Or 
use the coupon. 

•DEC and VAX-11/780 are 
trademarks of Digital _ 

Equipment Corporation. System.^ Industries 

525 Oakmead Parkway, P.O. Box 425 
Sunnyvale, CA 94086 


Please send details, including medical case histories, on 
how your disk storage systems can provide immunity 
against: ^ glow delivery C prices ^ limited choice 

Name_ 


ext_ 




Industries 


United States: 525 Oakmead Parkway, P.O. Box 425, Sunnyvale, CA 94086, (408) 732-1650, Telex 346-459. 

Europe: System Industries (Europe), System House, Guildford Road, Woking, Surrey, GU22 7QQ, England, (048 62) 5077, Telex 859124. 
California (714) 754-6555. (213) 557-0384; Colorado (303) 741-3502; Georgia (404) 955-2252; Illinois (312) 948-9330; Massachusetts (617) 695-4022; 

New Jersey (201) 839-8650; New York (516) 482-6082; New York Metro (212) 953-0315; Ohio (513) 771-0075, (513) 874-5503; 

Texas (713) 497-7224; Washington, D.C. (703) 734-9700; West Germany (06102) 5464/5; Sweden 08-63 62 74 
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Making Basic-2 Programs Sharable 

Dave Kachelmyer. Dan Esbensen, North County Computer Services. Inc., Escondido, California 


ABSTRACT 

With the advent of RSTS/E V7.0, sharable programs provide a simple solution to 
the problem of large, concurrently used programs degrading system performance. 


INTRODUCTION 

At our installation, there are several 31K custom data 
entry programs that are used by 13 to 18 people throughout 
the day. These programs place a sizable load on our system 
because of the large memory requirements, RSTS scheduler 
overhead, and swapping overhead. 

The multi-user feature of Task Builder was used to 
solve this problem. BASIC-2 program pure areas were ex¬ 
tracted from the program and placed in a resident library to 
be shared by all users of the program. With the pure areas 
removed, the program size dropped to 7K. Converting these 
programs resulted in increased system performance 
because more memory was available, and swapping 
overhead Was greatly reduced. 

SHARABLE PROGRAMS UNDER RSTS/E 

As part of the resident library feature of RSTS/E V7.0. 
the task builder was upgraded to handle tasks built with 
read-only code. This feature is called the multi-user task 
feature. When this feature is used, the task builder takes all 
read-only code and moves it to the task's upper address 
space. This code is then marked as read-only sharable code. 

RSTS/E supports sharable programs as a task file/resi¬ 
dent library combination. A multi-user task must be con¬ 
verted into separate read-write and read-only code in order 
to run correctly. This conversion is done with MAKSIL. 

When run on a multi-user task, MAKSIL splits the task 
file into an executable task file and a resident library file. 
The resident library must be ADDed before the task file can 
be run. 

SHARABLE BASIC-2 PROGRAMS 

BASIC-2 programs contain two read-only sections. 
$CODE and $PDATA. The section $CODE contains threaded 
code generated from the source program. The section 
$PDATA contains numeric constants -and string literals 
referenced in the program. 

BASIC-2 programs also contain a read-write section, 
called BP20TS. which is effectively read-only. This section 
contains BASIC-2 OTS routines referenced by the threads in 
$CODE. These routines are extracted from the BP2C0M 
library and placed in the task image by the task builder. 
Because the modules in BP2C0M are defined as read-write, 
task builder places these modules in the task's lower ad¬ 
dress space, greatly increasing the size of the non-sharable 


program segment. This can be avoided by having the task 
builder force the section BP20TS into the sharable segment. 

BP20TS is made sharable by forcing the section to be 
defined as read-only. To do this, a PSECT definition is placed 
in the program's overlay description file, defining BP20TS as 
read-only. This definition forces the task builder to include 
the BP20TS code in the read-only sharable segment. 
However, because this definition conflicts with the OTS 
module definitions, the task builder generates a warning 
message for each module included in the task image. The 
number of modules included in the task can be reduced by 
taskbuilding against a resident library. 

BUILDING A SHARABLE BASIC-2 PROGRAM 

The following describes the procedure for building a 
sharable task from a BASIC-2 source program. The pro¬ 
cedure for making sharable programs requires that the 
MAKSIL patch 11.16.1 be installed. Additionally, the pro¬ 
cedure for making a sharable BASIC-2 program requires 
that the BASIC-2 compiler patch 45.2.12 must be installed. 
The MAKSIL patch may be found in the February Software 
Dispatch. The BASIC-2 compiler patch is reproduced in Ap¬ 
pendix A. 

The steps are: 

1. Compile program 

2. Build task builder control files 

3. Edit task builder command file 

4. Edit overlay description file 

5. Taskbuild program 

6. Generate LIB and TSK files with MAKSIL 

7. Install Resident Library 

8. Test program 

The first step involves compiling the program into an 
object module. 

OLD TEST 

COMPILE TEST/OBJ 

The next step is to build the Task Builder CMD and ODL 
files. The program may be built against a BASIC-2 resident 
library to reduce the number of OTS modules in the task 
image. 

HISEG 

Name [BP2C0M]—NONE 

Account [LB:]— 

BRLRES 

File spec [NONE]—LB:BASICS 

BUILD TEST 


MENU is an applications 
development aid that 
provides the DEC RSTS 
software developer with a 
powerful process control 
device. 



within an individual account. 
Separate project-level 
control minimizes System 
Manager interaction for 
system level security. 

MENU is driven by simple 
text files which determine 
extent of program control, 
type and level of security, 
screen displays, and presen¬ 
tation of on-line ‘/HELP’ 
information. 

MENU provides a separate 
Run Time System to prevent 
unauthorized access to RSTS 
‘ready state’ resources. 


MENU installs in minutes and 
requires no software 
modifications. 

MENU provides a common 
interface for all your users 
and application needs. 

For information on MENU, 
please give us a call. We 
would be delighted to show 
you the missing link. 


MENU easily generates 
menus that guide the appli¬ 
cation user into selected 
programs based on his 
security level. 

MENU supplements RSTS 
security by allowing multi¬ 
level access capabilities 


North County 
Computer Services, Inc. 

2235 Meyers Ave. 

Escondido, California 92025 
(714) 745-6006, Telex: 182773 


DEC and RSTS are registered trade¬ 
marks of Digital Equipment Corporation. 


© Copyright NCCS 
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Once the files are built, the Task builder command file 
is edited to include the /MU switch in the task file specifica¬ 
tion. The command file should look something like this: 

SY:TEST/MU = SY:TEST/MP 
UNITS = 12 

ASG = SY:5:6:7:8:9:10:11:12 
RESLIB = LB:BASICS/RO 
EXTSCT = 512 
// 

Next, edit the PSECT definition into the overlay descrip¬ 
tion file. This involves adding a PSECT statement and in¬ 
serting a reference to this statement in the ROOT state¬ 
ment. The ODL file should look something like this: 

.ROOT USER-BP20TS 
USER: .FCTR SY:TEST-LIBR 

LIBR: .FCTR LB:BP2C0M/LB 

.PSECT BP20TS.R0.I.LCL.REL.C0N 
.END 

The next step is to taskbuild the program. Because of 
the PSECT definition conflicts, the task builder will print a 
MODULE MULTIPLY DEFINES PSECT BP20TS message for 
each BASIC-2 OTS module referenced by the program. These 
messages (but only these messages) should be ignored. 

TKB ©TEST 

MODULE xxxxxx MULTIPLY DEFINES PSECT BP20TS 
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tion supplied by the Basic-Plus-2 Development Group of 
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APPENDIX A 

RSTS/E V7.0 Software Dispatch, May 1981 

BASIC-PLUS-2 VI .60 Seq 45.2.12 M 

for RSTS/E V7.0 
BASIC2 Compiler Patches 

INCORRECT PSECT ATTRIBUTES 

PROBLEM: 

$PDATA and $CODE PSECT have incorrect access attributes. 
SOLUTION: 

This mandatory patch to the Compiler for BASIC- 
PLUS-2 VI.60 will cure the problem. It must be installed on 
all versions (EIS, FIS, and FPU) of the Compiler. Article seq. 
45.2.7 M must be applied before this patch can be applied. 


TASK EXIT STATUS: ERROR 

Next, run MAKSIL to split the file into LIB and TSK files. 
For convenience, the SIL output file can be named as a TSK 
file. 

RUN $MAKSIL 

MAKSIL V7.0-07-I- /MU PATCH 
Resident library name? TEST 

Task-Build Resident Library input file <TEST.TSK>? 
Include symbol table (Yes/No) <YES>? NO 
Task Image SIL output file <TEST.SIL>? TEST.TSK 
TEST built in 4K-words. 0 symbols in the directory 
TEST.TSK renamed to TEST.TSK <104 > 

PIP TEST.TSK < 124 > /RE 

The next step is to add the resident library. 

UT ADD LIBRARY SY:[1.210FEST/ADDR:124 

And then test the program. 

RUN TEST.TSK 


Once the test procedure is complete, the program is 
ready to use. The statements to ADD the resident library 
segment should be placed in the start-up command files. 


PROCEDURE: 

1. Install the following patch using the ONLPAT pro¬ 
gram supplied on the distribution media: 

Command file name? <LF> 

File to patch? $BASIC2.TSK 
Base address? 742:55724-55054 


Offset 

address? 

4 



Base 

Offset 

Old 

New? 

000650 

000004 

002640 

? 

2660 

000650 

000006 

002640 

? 

^Z 

Offset 

address? 

12 



Base 

Offset 

Old 

New? 

000650 

000012 

002440 

? 

2460 

000650 

000014 

002640 

? 

^Z 

Offset 

address? 




Base address? 574:70456- 

-36734 

Offset 

address? 

1562 



Base 

Offset 

Old 

New? 

031522 

001562 

053522 

7 

47522 

031522 

001564 

044454 

7 

^Z 

Offset 

address? 

1720 



Base 

Offset 

Old 

New? 

031522 

001720 

026127 

7 

26117 

031522 

001722 

026104 

7 

''Z 

Offset 

address? 





Base address? ''Z 
File to patch? ''Z 

2. The compiler is now ready for use. 
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AMPCX 

MAKES PDP11/34 
OUTPERFORM 
PDP 11/70. 



That’s what happened 
at San Francisco Gen¬ 
eral Hospital Medical 
Center. With the addi¬ 
tion of Ampex Mega¬ 
store, processing time 
was reduced to more 
than 1 /3the time 
previously required. 

Ed Wong, Manager of Data 
Processing, was running 4,000 
patient tests every day, seven days 
a week. And he needed help. 

Ampex Megastore has been 
in use over one year for Ed Wong, 
seven days a week, 24 hours a day, 
without failure. According to Ed, 

“We put a lot of time and study into 
our selection of Megastore, so 
naturally we’re very pleased with 
the results. Our line printer is now 
running at maximum rate, 600 
LPM. Before it was less than half 
that. During peak load periods, we 
have experienced no wait time 


with our 26 terminals." 

Dr. Myron Pollycove, M.D., Di¬ 
rector, Clinical Laboratory, added, 
“We had considerable delays in 
processing information on the CRT 
screen, in some cases up to one 
minute. When you consider the 
number of inquiries from doctors, 
that kind of response time is just 
too slow. Of course, that was before 
we installed Ampex’s Megastore.” 

With non-volatile storage of 


AMPEX 


from V? megabytes to 
4 megabytes. It’s 
made of core. And it’s 
fast. 3 microseconds, 
max. And there’s no 
latency. Megastore is 
transparent to mini¬ 
computer software, and 
requires no program 
changes. Additionally, it’s high 
reliability improves system uptime 
and availability. 

Megastore. The higher per¬ 
formance alternative to fixed head 
disks on PDP-11 minis that 
provides exceptional throughput 
and reliability. 

For more information about 
how you can put Megastore to 
work performing for your system, 
call Cal Goshi at 213/640-0150. 

Or write him at Ampex Memory 
Products, 200 N. Nash Street, El 
Segundo, CA 90245. Ed Wong did. 

©Ampex 1980 


MAKES THE DIFFERENCE. 
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The RSTS/E Benchmarks 
Part I 

By Richard A. Marino. Data Processing Design. Inc. 


benchmark: "A mark made in some durable object, as a wall or other landmark, of 
known position and elevation, for use as a reference point in surveys or tidal 
observations.” 


RSTS/E is certainly a durable object and the RSTS/E 
Professional a landmark publication, but the goal of this 
series of articles is to present an examination of how one 
can develop and use benchmarks as reference points in 
making evaluations of hardware devices and software 
techniques. The goal of these evaluations being to improve 
the performance of your RSTS/E system and your RSTS/E 
applications. 

Our interest is in computer benchmarks — that is 
benchmarking or measuring the performance of a computer 
system performing a specific task. The term specific task is 
critical because the goal of benchmarking, like any experi¬ 
ment. is to measure the difference — the difference in per¬ 
formance under differing conditions. 

For pure hardware performance this may mean the ex¬ 
ecution of the same program, typically very scientific and 
arithmetic in nature, on different hardware configurations 
and different computer systems. You probably have seen 
advertisements touting a computer s speed in ‘Wheatstones 
per second’, one common measure of scientific computa¬ 
tional speed. But this type of method neglects one impor¬ 
tant factor — this benchmark like any benchmark 
measures one specific condition and this performance can¬ 
not typically be generalized to similar tasks. While I am not 
making an accusation, it would not be difficult to take one 
of the popular scientific benchmarks and design a FORTRAN 
compiler or even a hardware instruction set (microcoded as 
they are) to provide exceptional benchmark performance. 

So one of the rules you should follow in reviewing the 
results of the benchmarks presented in these articles or in 
any advertisement is: 

Benchmarks are specific but do not necessarily 
reflect performance in general or in your particular 
system/application environment. 

Another oversight it is easy to make while benchmark¬ 
ing is to be overly concerned with pure hardware speed. As 
many of you have realized there are many ways to improve 
system performance — while faster hardware is one way it 
is often times not the best (and certainly not the cheapest) 
way. Despite the fact that your sales representative may 


want to sell you that new fast widget — it may only make a 
marginal difference in performance. 

A for-instance is that disk transfer speed is really less 
important than you might think. Some benchmarks that we 
will look at later in this series demonstrate that there are 
other factors that contribute even more to disk throughput. 
We will look at many different hardware components and 
compare them, but more to relate their real performance to 
their theoretical performance. A second general guideline is: 

Speed does not in itself determine performance. 

For example here is one pure speed benchmark. A pro¬ 
gram that appeared in volume 1. number 1 of the RSTS/E 
Professional implemented a bubble sort in Macro-11. I 
modified the program to do the sort fifty times and then ex¬ 
ecuted it standalone on various configurations. The results: 


Environment 

Time (sec) 

11/70 

RSTS/E 

37 

11/44 

RSTS/E 

55 

11/44 

RSX11M 

56 

11/44 

RT11 

51 

11/34 

RSTS/E 

122 

11/34 

RSX11M 

141 

11/34 

RT11 

111 

PDT-150 RT11 

236 

11/03 

RT11 

238 


i am not going to attempt to draw any conclusions, but 
1 would be interested in hearing from you if you would like 
to draw some. In fact I would welcome any suggestions or 
observations you have about it. 

A difficulty in benchmarking and one way in which 
benchmarks mislead is that no benchmark that 1 develop is 
perfectly valid for your environment, even assuming it is 
perfect for mine. One of the goals of this series is to help you 
discover how to develop your own benchmarks for your own 
environment. It isn’t as hard as you might think. 

While my benchmarks may not match your environ¬ 
ment 1 will be showing you the results of some benchmarks 
you can reproduce on your own system. This will allow you 
to compare your configuration with those I use. This is one 

... continued on page 76 
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RSTS/E System Management 

By Jeffrey R. Harrow. 485 Creekview Drive, Stone Mountain. Ga. 30083 


Does anyone out there use "forms” (or simulated Block Mode) in their applications to 
make it easier for a user to interact with his application program? 


Certainly, there are a large number of applications written 
in this manner, but unless you have a CTS-500 (commercial 
flavor) system and are using DIBOLyDECFORM. you have had 
to code the forms handling yourself using Echo Control Mode. 

The good news is that DEC has come out with an across 
operating system package called Forms Management System 
(FMS) wrtiich. as the name implies, provides high level forms 
capability for your applications written in any language which 
supports a "CALL" verb (NOT BASIC-Plus) without your having 
to do any of the dirty work. 

The bad news is that it won’t be available for RSTS/E until 
around the end of 1981. 

The good news is that there is an alternative. Interactive 
Data Entry (INDENT), available for RSTS/E which does many of 
the same things as FMS (although in a different manner) and 
does a few things that FMS does not. 

The bad news is that, in some shops, an internal problem 
between DEC'S INDENT and RSTS/E groups \«hich lefta special 
operational requirement (more in a moment) will make 
INDENT realistically unuseable. 

INDENT is composed of an INDENT Run-Time System, an 
INDENT Compiler, and several INDENT utilities which allowyou 
to work vflth the forms you design. IN DENT is a highly sophisti¬ 
cated package which allows easy use of the many special 
features of RSTS/E (such as multi-terminal I/O) and the VT100 
(all attributes). 

In brief, to create an INDENT application, you first decide 
what the form should look like. You then, using an editor, 
create a text file which is actually the source code for the 
INDENT compiler. This is NOT an "on-screen" forms editor (like 
FMS provides), but. iike DECFORM, requires you to create the 
forms description, then compile it. then display it to see what 
you have done. 

Once you have a compiled INDENT form, you can exercise 
it (and I don't just say "display ” it, because INDENT allows 
extremely sophisticated and versatile forms which can have 
many parts, chain between forms, do scrolling within a form, 
etc.) with some of the supplied INDENT utilities. Youthen put 
this aside, and create your application program which will 
"drive" the form. The application program essentially does 
Field I/O to/from the form using a few CALLS (which are 
resolved from the INDENT object library at Task Build time). 

All fairly simple, except for this one problem: The first 
thing that your application program must do is "Are up" the 
INDENT form job. This is necessary because your application 
program runs in JOB A linked to whatever Run-Time System is 


appropriate (BASIC2, RSX. etc.) and your first CALL to INDENT 
SPAWNS JOB B. which runs the compiled INDENT form and is 
linked to the INDENT Run-Time System. (When you do the 
CALLS to do the Reid I/O to/ffom your form, the INDENT 
routines linked into your application program are actually 
doing Message Send/Receives to the associated INDENT form 
job (JOB B).) 

And here is the crux of the problem... the SPAWN Syscall 
requires Privilege, and that means that your application pro¬ 
gram must have Permanent (shudder) or Temporary Privilege 
to start its INDENT job. 

In any sanely run RSTS/E shop, VERY FEW privileged 
passwords are up for grabs, and this means that each applica¬ 
tion programmer who is writing INDENT application programs 
must go to one of the Systems Staff each time that he re-task 
builds his application program (which happens quite a bit 
during program development/testing). If the Systems Staff is 
conscientious, they must then go over the application program 
with a flne toothcomb during each of these iterations, to 
make sure that the program will not compromise the ^stem 
once he gives it the Temporary Privilege attribute. This can 
easily constitute an unacceptable level of effort for the Sys¬ 
tems Staff (or could cause them to shirk their duty and, 
perhaps, give the Temporary Privilege attribute to a program 
with a bug which, while running Privileged, could cause harm to 
the system or other users). 

During the course of my SPRs with DEC on this subject, I 
received an interesting "Anger pointing" response from the 
INDENT group, indicating that they had requested a Feature 
Patch to RSTS/E allowing an installation to make the SPAWN 
Syscall non-privleged, however the RSTS/E group wrould not 
commit to providing such a patch, much less provide an 
expected date. A later communication suggested writing a 
simple utility which would allow a non-privileged user to make a 
program privileged himself ... anyone willing to have such a 
utility? 

Therefore, although INDENT is an extremeiy versatiie 
forms package, if you are thinking of purchasing it for your 
shop consider two items; Can you afford (you can’t afford NOT 
to) the resources to scan your application programmers’ 
INDENT application programs each time a change is made; and 
do you have any expectation of moving the application to a 
non-RSTS/E system such as RT11. VAX, or RSX. (Note that 
INDENT forms bear NO relation to an FMS equivalent, nor will 
they ever do so.) If these are not problems to you. IN DENT may 
well provide the forms capabilities we’ve all been waiting for. 
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but if these are problems, prepare to wait for FMS-RSTS/E. 

Concerning the Datatrive problem which I discussed last 
issue, DEC’S response was a change to the installation proce¬ 
dure to remove all protection from the central data diction¬ 
ary, or use private dictionaries. Come on. DEC! A central 
precept of the use of DTR in many shops is the use of a central 
dictionary, and it is against all conceivable security considera¬ 
tions to leave such a central dictionary completely unpro¬ 
tected! I realize that this requires some changes to DTR for 
RSTS/E (implementing the Temporarily Drop Temporary Privi¬ 
lege Syscall in a few places and giving DTR.TSK a protection 
code of < 232 > and LB:QUERY. DEC a protection code of 
< 60 >). but we re paying for a product that works correctly on 
our RSTS/E systems, as well as on RSX11M, etc! 

Speaking of DTR, there's another RSTS/E related prob¬ 
lem. The RSTS/E standard for error messages is for the first 
character of an error message to contain either a ”?" or a ”%' 
to indicate that it is a FATAL or WARNING message, respec¬ 
tively. DTR does NOT preface its error messages with these 
characters, which means that you may get quite unexpected 
results when running DTR as part of a BATCH or ATPK stream. 
I’ve submitted another SPR on this subject, and I’ll keep you 
informed on its response. In the meantime, examine any such 
job streams to be sure that if the DTR portion has a fatal error, 
the rest of the job stream, which WILL continue, does not do 
anything which would prevent you from fixing the DTR problem 
and re-running the job stream. See you next issue. V 


- ! — ^ 

Word Processing* 

for 

RSTS/E 

On Track Systems provides: 


• Sales 

• Service 

• Installation 

• Demonstrations 

• Training 

• Consulting 


At your 
convenience/ 

At your 
office! 


(215) 542-7008 

P.O. BOX 245, AMBLER, PA 19002 

*Word 11 by Data Processing Design, Inc., 

181 W. Orangethorp Avenue. Placentia,CA 92670 

_/ 
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DEAR 

RSTS 

MAN: 



DEAR RSTS MAN: 

1) The RSTS Professional contains more 
useful information on one page than DEC 
could ever hope to fit into one of its manuals. 

2) There is a bug in PIP.SAV (at least in 
V06C). As far as I can tell, PIP.SAV uses the 
following routine: 

COPY FILESPEC IN-NAME TO OUT-NAME 

1) FOR FIL-NUM = 0 TO 32767 

1.1) DO A DIRECT LOOKUP ON IN¬ 
NAME. GET OCCURRENCE 
NUMBER FIL-NUM TO IN-NAME-1 
(LIKE THE DIRECT LOOKUP ON 
WILD CARD SYSCALL, FIP = 17.) 

1.2) ON ERROR FROM ABOVE. 

GOTO 2 

1.3) CHANGE WILD CARDS IN OUT- 
NAME AS NEEDED. PUT RESULT 
IN OUT-NAME-1 

1.4) COPY IN-NAME-1 TO 
OUT-NAME-1 

1.5) NEXT FIL-NUM 

2) END 

This works fine most of the time. If you try 
to copy files within an account the follow¬ 
ing happens: 

PIP 3Y0: •.* = SYO: *.* 

(DIRECTORY CONTAINS I.FIL, 2.FIL. AND 
3.FIL) 

(PIP COPIES I.FIL TO I.FIL) 


Imagine the following happens: 

1) User (1,10) is reordering account (4,5) 
which has 200 files In it. The reorder takes a 
long time. 

2) User (4,5) logs in. deletes the first 10 files 
In his account, and logs off. 

3) REORDR.BAC reordered files 150 to 
180 while the above was going on. It was not 
paying attention to files 1-10 which have now 
been deleted. 

4) The scratch directory is copied into the 
real directory. 

I hope I missed something In REORDR.BAC 
which checks for this, as the results could be 
grim. 

4) The article on RSTS V7 internals was very 
informative. Most of what was said (almost all 
of the useful information) Is applicable to 
RSTS V06C. 

5) How can you tell if a printer is print- 

‘ * ing or if It Is just sitting there? Is ' ' 
999 there any way you can PEEK into its 999 
Buffer Control Area somehow and 

999 

‘ • • find out if there are any small - • - 
PPP buffers which are to be printed on^pp 
the printer once it finishes up? 

Sincerely, Kenneth Boorom 
Grade 10, Brunswick School 
Riverside, CT 

Dear Ken: I would not call #2 a bug, but a 
feature. A very dangerous feature! However, 
this will work on DECT APE! In the very old 
days DECTAPES did not free up space when 
a file was deleted ... a "Copy and Clean" 
operation was required and if you had lots of 
time only one DECT APE was needed. 

Number 3, when running REORDER 
always SET NO LOGINS or Else! 

Number 5 was submitted to a monitor 


(DIRECTORY CONTAINS 2.FIL. 3.FIL. I.FIL 
IS NEW FILES LAST) 

(PIP COPIES THE SECOND FILE IN THAT 
ACCOUNT. 3.FIL. TO 3.FIL) 

(DIRECTORY CONTAINS 2.FIL. I.FIL, 3.FIL) 
I.FIL will not get copied. This causes prob¬ 
lems when: 

PIP SY0.*.VCL:16 = SYO:*.* : MAKE ALL FILES 
: CONTIGUOUS 
PIP SYO: = SY1: ; COPY SYSTEM 

:DISK 1 TO 
: SYSTEM DISK 0 


Guru. His answer: 


10000 ! S 

IFNUAITZ -- UAITS FOR PRINT i 

!HEAD TO STOP ON LA36^S I 

! 

10010 IiEF FNUAITZ 

10020 TZ=PEEK(PEEK(PEEK(520Z))) S 

\G0T0 10090 IF PEEK(TZ+10Z)=PEEK(TZ+12Z) 
\SLEEP 1Z X 

\G0T0 10020 

10090 FNUAITZ-v;. S 

\SLEEP 3Z I 

\FNEND 


3) I f/7/n/cthere is a bug in RECRDR.BAC—It 
uses the following routine. 

REORDER USER FILE DIRECTORY [4.5] 

1) OPEN A SCRATCH DIRECTORY 

2) FOR FIL-NUM = 0 TO 32767 

2.1) GET STATISTICS (NAME.EXT, 
LAST ACCESS DATE, etc.) 
ABOUT FILE NUMBER FIL-NUM 

2.2) IF NOT THERE. GOTO 3 

2.3) IF IT IS OPEN. THEN ABORT 

2.4) COPY STATISTICS TO SCRATCH 
DIRECTORY 

2.5) NEXT FIL-NUM 

3) COPY ENTIRE SCRATCH DIRECTORY TO 
DIRECTORY OF (4.5) 


How come it took until 10th grade for you to 
think of all this? How about writing us an 
article on how and what you and your school 
do on RSTS. Keep up your interest! 


DEAR RSTS MAN: 

Problem: A Fortran user (under RSTS/E) has 
a large program that manages extensive files. 
During certain points In the program execu¬ 
tion he wishes to interrupt the program with¬ 
out terminating its execution. Having so 
interrupted it, he will handle the situation 
within his program — i.e., he can tidy his files 
files and make an orderly exit or resume 
processing. 


It’s easy enough to handle this problem If 
we were dealing with Basic-plus, but In 
Fortran it’s not so simple. The idea was to be 
able to type a single character at the terminal 
and the program would test for the existence 
of it. If It wasn’t there, it would go on about 
its business. 


After much trial-and-error coding, the pro¬ 
gram KBT, attached, worked out but not very 
well. With a simple Fortran calling program 
which did nothing but loop on the call to KBT 
and test the flag, the real time between char¬ 
acter input and reaction of the program to it 
averaged 45 seconds! Secondly, KBT seems 
only to react to a carriage-return; other 
characters (without being followed by a 
return) have no influence on It. 


TITLE HBT 

•SUBRO. tNE TO TEST KEYBOARD FOw EXISTENCE OF TYPED CHARACTER 
CALLI-.; SEOUENCE CALL KBTiIFIAG) 

iflac«i3 if no data has been entered 


«RB»OOC-;-S2 
FIPQB«::C402 
READ=:;i002 

KBT CLB 

f<OV 
I'OV 

:lr 
’ ov 

t^V 

.:lr 

•.LR 

HOV 

READ 

POW 

Q’JI FTS 


104377 
•2JR5) 
KXRB. RO 


RS192 .(ROt" 


«4FIPQB.«2iPS) 
PC 


,PUT XPB INTO RO 

. BYTE 2 IS O 
.ADDRESS OF BUFFER 
.CHAN ZERO 

. blo;k * 

. WAIT TIME 
, HOD FOR NO data 

tell RTII to let rsts handle the EHT 
.ISSUE NO-UAIT READ TO TERMINAL 
,PUT STATUS IN IFLAC 


BLK8 126 
END 


I have two questions: (1) How can I make 
this program behave as it should, and (2) Will 
somebody please explain why this program 
(or for that matter, any MACRO program 
accessing the monitor data or using the 
directives) only works if you Include the 
directive “.RSTS”? It’s almost like magic, 
especially since no one anywhere. Including 
your authors, ever mentions it. 

Ms. E.G. Johnston 
Director, Computer Center 
Western Maryland College 
Dear Ms. Johnston: 1) We don’t know, but a 
BASIC+2 version follows that works fine!. 


10 call Kbt(t%) 

20 goto 10 if t% = 13% 

30 print t% 

90 end 


>ry KbT.nar 
.title Kbt 
.ident /te‘T/ 


xrb 

S 

44? 


firob 

s 

402 


• read 

* 

104002 


buff: 

.biko 

126. 

;buffer for boidinq thinqs 

Kbt;; 

clr 

§2(r5) 

;clear return code 


■ov 

■xro.rO 

tpoint to '.rb 


■ov 

■12fl.,(r0)+ 

;sptup buffer size for read 


clr 

(r0)F 

. OUST be zero' 


■ov 

••buff;(r0) + 

;aadress of buffer 


clr 

(rOH 

•chan/erb clock 


Clr 

(r0)+ 

;lsb block 


clr 

(rOH 

;«a)r tiop 


■ov 

■6192.,(rO)* 

;eoditlers 


• read 


;do The read 


■ov 

P«firqb,§2(r5) 

^return the error code 


rts 

pc 

^return to caller 


.end 

2) The. RS TS directive is required to prevent 
the RT11 emulator from intercepting the 
EMT, but to pass the next monitor call to 
RSTS. 


. . . continued on page 66 














HEXAGON from National. 

A new dimension in inner space. 


National unleashes the first 
DEC -compatible peripheral controller 
that does the work of three. 

Why waste valuable chassis space on 
peripheral controllers that can only intertace 
a single device type to DEC'S UNIBUS®? This 
one-to-one approach can only drive your 
UNIBUS system costs upward and its overall 
reliability downward. 

Now there's no reason to put up with 
this inefficiency. Now fhere's fhe HEXAGON™ 
confroller. 

HEXAGON is our new hex-wide periph¬ 
eral confroller that simultaneously handles 
up to four RM02/RM03 80 MB disk drives, 
four TUIO V 2 " fape drives and 8 MB of our 
NURAM™ semiconductor disk. All from just 
a single slot. 



Cut costs In the factory and in the 
field. By using one board to do the work ot 
three or more—with no degradation—you 
save a bundle in a number of ways. 

Your most immediate savings is the 
elimination ot two comparably priced 
controller boards. But torther down the 


line, HEXAGON'S upgrade flexibility lets you 
expand a configuration less expensively 
because you don't necessarily need to buy 
additional boards or a larger chassis. 

This also means your spares inventory 
costs are cut way back. Not only in the 
factory, but in the field as well. 

And af fhe same fime, HEXAGON 
increases your system's reliability because 
it uses tor tewer ICs to do the whole job 
(198 in all). 

What these and other cost-benefits all 
boil down to is a rebalancing of your system 
operational costs. HEXAGON brings the 
price of I/O processing back in line with the 
costs ot instruction processing and memory. 
Which makes the old one-to-one approach 
a thing of the past. 

If dll stems from our XPU™ architec¬ 
ture. HEXAGON is based on our advanced 
Transfer Processing Unit (XPU) design 
concept. 

The XPU's generalized intelligence 
emulates the transfer processing logic of 
DEG'S RM02/RM03 disk, TUIO tope and 
RS04 fixed head disk controllers. So it's fully 
hardware and software compatible with any 
UNIBUS system. 

By consolidating this logic into a 
single powertui microengine—and with the 
aid ot on-board multi-sector buffers— 
HEXAGON can simultaneously transfer data 
at the rates of 1.2 MB/sec (80 MB disk), 
320 KB/sec (1600 BPI tape) and 500 
KB/sec (8 MB NURAM fixed head disk 
emulator). 

And only one UNIBUS load services all 
three device types. 

Practicality prevails. HEXAGON'S XPU 
architecture farther enhances its overall 


reliability because it utilizes only proven 
technologies. There are no risky new and 
exotic parts to complicate the matter. Just 
good, solid and efficient design. From the 
same company that brought solid reliability 
to DEG add-in memory. 

Leave it to the Practical Wizards to add 
a whole new dimension to inner space. 

For complete details on our HEXAGON 
controller, simply send in the coupon below 
or call Bill LeDuc toll-free af (800) 538- 
8510 or (800) 538-8514. In Galifornia 
call (408) 736-6994. 

HEXAGON, NURAM and XPU are fradeniarks af National Semiconductor 
(Corporation 

DEC and UNIBUS are trademarks of Digital Equipment Corporation 
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HEXAGON'S efficiency and pracficality is jusf 
what I need to cut my costs down to size. 
Please send me: 

□ HEXAGON information. 

□ NURAM information. 

□ DEG Add-in Memory information. 

NAME_ 


STATE 


.ZIP_ 


PHONE_ 

National Semiconductor Gorporation 
2900 Semiconductor Drive 
Mail Stop 7G265 
Santa Glara, GA 95051 


National 

Semiconductor 

The Practical Wizards 
of Silicon Valley 
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And we’ll get ’em on their way to you right away — 
usually within 24 hours. Exactly what you wanted. 
At the right price. In time. On time. Every time. 
Anywhere in the continental U.S.A. 

You can count on us. 

Because we’re The Suppliers. 


DEG Peripherals 

BA11KE 

DD11CK/DK 

DH11AD 

DL11E 

DZ11-A,B,C,D,E,F 

FP11-A 

MS11LB 

MS11LD 

MSV11DD 

DLV11J 

RM05-AA 

RK07EA 

RK711EA 

RL02-AK 

RL211-AK 

RL01-AK 

RL11-AK 

RLV21 

RLV11 

RX211-BA 

RXV21-BA 

TJE16-EA 

TWE16-EA 

TWU45-AA 

KDF11-AD,HD,HF,HH,HK 

DR11C 

MR11EA 

VT103-AA,BA 

Call us at (904) 434-1022 


DEG Terminals 

LA 34 DECwriter IV 
LA 36 DECwriter II 
LA 38 DECwriter IV 
LA 120 DECwriter III 
LA 180 DECprinter I 
VT 50 DECscope CRT 
VT 52 DECscope CRT 
VT 100 DECscope CRT 
VT 103 DECscope CRT 
VT 132 DECscope CRT 

Call us at (904) 434-1022 




DEG Supplies 

Disk Cartridges and Packs 
Diskettes 

Diskette Storage Units 
Mag Tape 
Ribbons 
Paper 

Forms Caddy 
Anti-Static Rugs 
Print wheels 
Terminal/Printer Stands 
Forms Bursters 
and Decollators 
Check Signers 
and a whole lot more 

Call us for our complete 
catalogue: 

1-800-874-9748. 

In Florida, call 
(904) 434-1022. 


CXDMPUTER 
&TERMINAL 
EXCHANGE 

WeYe The Suppliers 



114 East Gregory Street Pensacola, FL. 32501 


DEC is a registered trademark 
of Digital Equipment Corporation 
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DEB, a Basic-Plus 2 Mini-debugger 

By Steven L. Edwards, Software Techniques, Inc. 

Copyright (C) 1981 by Software Techniques, Inc. 


1.0 Abstract 

The Basic-Plus 2 language provides the applications 
programmer with a very powerful program debugging 
facility. Unfortunately, there are two serious problems with 
the supported debugging facility: size, and lack of features. 
The debugging facility described in this article was written 
with these problems in mind. 


2.0 Disclaimer 

This article describes the author's experience with 
RSTS/E V7.0 and Basic-Plus 2 VI .6 and may not be accurate 
in other operating environments. This document may con¬ 
tain information that is not part of the supported func¬ 
tionality of RSTS/E or Basic-Plus 2 and therefore is subject 
to change without notice. 


3.0 Description 

DEB is a tiny Basic-Plus 2 debugging routine, stripped 
down to the bare minimum functionality to provide some 
semblance of debugging facility to programs that are too 
large to make use of the supported Basic-Plus 2 debugging 
facility. Gone are variable display (PRINT), variable assign¬ 
ment (LET), and most of the breakpoint features. In their 
place are GOTO's, RESUME S, and executing a trap to ODT (if 
linked into the program). 

In use, DEB replaces the LIN$ (line number routine). 
Thus, the resolution of our breakpoint and tracing control is 
at the line number level, not at the statement level. 


4.0 History 

Software Techniques is a software house specializing in 
RSTS/E and Basic-Plus 2/RMS-11K applications. Because of 
the 16 bit addressing limitation (31KW) on PDP-ll 's, we 
found ourselves without any facility to debug large applica¬ 
tions programs. DEB was written to give us a trace of the 
line numbers being executed. However, Just watching the 
trace was not enough, so breakpoints were added. GOTO 
and RESUME were soon added in response to a dare (who 
can leave a challenge un-challenged?). We develop our pro¬ 
grams in a mix of Basic-Plus 2 and MACRO (see RP. V2 ^4), 
so the O' command was added to allow the use of a low 
level debugging tool like ODT. 


5.0 Command Set 

The command set available to the applications pro¬ 
grammer, while admittedly a restrictive subset of the sup¬ 
ported debugger command set, includes a few tricks that 
belong in the supported debugger. Listed below is the DEB 
command set. The command parser is very simplistic (less 
memory), so all commands consist of a single character and 
a line number if applicable. 

• B linenumber—set breakpoint. 

• C—continue until next breakpoint. 

• E—exit program. 

• G linenumber—GOTO linenumber. 

• 0—enter ODT. 

• R linenumber—RESUME linenumber. 

• S—step. 

• T—enable tracing. 

• U linenumber—un-set breakpoint. 

• <CR>—step. 


6.0 Linking Instructions 

Since DEB replaces the LIN$ routine, compile your pro¬ 
gram with "/LIN/NODEB" to insure that this routine will be 
executed at each line number (LIN) and that we have enough 
memory to execute our program (NODEB). 

Do not link to BASICS because references to resident 
libraries are resolved before references to object modules or 
libraries. 

When you link your program, you will get the error' 
message: 

%TKB - -DIAG--MODULE SERROR MULTIPLY DEFINES SYMBOL LINS 

Since our module is referenced first, the task-builder 
will ignore the Basic-Plus 2 routine. 

7.0 Linking Example 

>BP2 

PDP-11 BASIC-PLUS-2 VI .6 BU 01.60 

BASIC2 

OLD DEBTST 


BASIC2 





“I (for once) 
was speechless. ” 

- Dave Mallery, March. 1981 issue ot 

RSTS PROFESSIONAL 



To tell the truth, so are we. We 
knew DISKIT would amaze RSTS 
users, but. frankly, we were 
unprepared for the response. Phone 
calls, letters, and now the RSTS 
PROFESSIONAL - all saying 
what we want you to know: 

DISKIT is a remarkable 
software tool! 

Listen to what else Dave has to 
say: 

“...using DISKIT, I created 130 
accounts and fully extended their 
centered UFDs in 3 minutes and 
40 seconds(ajob that used to take 
4 to 8 hours.)” 

“I then copied the full contents 
of a 300 MB RM05 equivalent to 
this new ‘well-structured’ disk in 
45 minutes, optimizing clustersize 
and contiguity in the process...” 

DISKIT IS A DISK 
STRUCTURING UTILITY 

As Dave discovered, DISKIT's 
disk structuring utility, DSU, is 
fast. It also: 

• Optimizes file clustersizes 

• Places and pre-extends UFDs 

• Performs transfers between 
unlike disks 

• Saves all accounting data 

• Allows manual file placement 

• Provides full logging and 
statistics 

• Includes sophisticated error 
handling and recovery 


DISKIT LETS YOU WRITE 
YOUR OWN DISK 
HANDLING ROUTINES 

Best of all, the very same routines 
used in DISKIT are included, 
with documentation, so you can 
write your own disk handling 
routines. In minutes. 

DISKIT IS THE FIRST 
SOFTWARE TOOL KIT FOR 
COMPLETE DISK 
MANAGEMENT 

The DISKIT package provides 
all the tools and utilities you need 
to create and manage a well- 
structured disk. The entire DISKIT 
package, with extensive documenta¬ 
tion is available now for only $ 1250. 

DISKIT, Dave says, “...is 
the ‘final solution’ to structured 
disks, eliminating all of the time 
and complexity and reducing the 
job to one of a SAVRES.” 

What more could we say? 

Once again, we’ve got the answer. 
Software Techniques, Inc. 


5242 Katella Avenue. Suite 101, 
Los Alamitos, CA 90720 


DISKIT IS A DIRECTORY 
PROGRAM 

But DISKIT is more than a disk 
structuring utility. DISKIT’s 
Macro-11 directory program, 
DIR, displays directories 12 times 
faster than before — looking up 
files by name, extension, and date 
(with wildcards) at the incredible 
rate of 250 files/second. 

And DIR is smart. It supports 
all standard DIRECT switches 
(including backwards, up to 1,000 
files) with features you won’t find 
elsewhere-like password lookup, 
UFD placement, and UFD size. 

DIR even works as a diagnostic 
tool on dismounted disks, detecting 
bad directory structures and 
identifying them w'ith comprehensive 
error messages. 

DISKIT IS AN OPEN FILES 
DISPLAY PROGRAM 

DISKIT’s Macrc^l 1 OPEN 
program displays open files by job 
- with complete job and file statistics. 
It even has a “sleep switch”, allow¬ 
ing you to dynamically update 
information at any desired interval. 


41k. 
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LISNH 


1000 

ONERROR GOTO 19000 

1010 

PRINT THIS IS UNE 1010" 

1020 

TEMP.0% = VAL( OOPSI”) 

1030 

PRINT THIS IS LINE 1030" 

1040 

OPEN "" FOR INPUT AS FILE 1% 

1050 

PRINT THIS IS LINE 1050" 

1060 

GOTO 32767 

19000 

PRINT ‘THIS IS UNE 19000- 

19010 

PRINT "ERROR!, ERR = "; ERR; & ' 

32767 

END 

BAS1C2 



COM/OBJ/UN/NODEB 

BASIC2 

HIS 

Name [NONE^-NONE 
Account [LB:]- 

BASIC2 

BRL NONE 

BASIC2 

BUI DEBTST.DEB 
BASIC2 

TKB (gDEBTST 

%TKB - ^ DIAG * -MODULE SERROR MULTIPLY DEFINES SYMBOL LINS 
%Task exit status: ERROR 


8.0 Sample Execution 

When the program is run. DEB displays a header, and 
the first line number awaiting your command. As the pro¬ 
gram executes, DEB displays the current line number at 
each breakpoint or step. If the program has an error 
pending (has not beed RESUME’d). the relevant information 
is displayed before the current line number. 

>RUN DEBTST 


DebiDEBTST V7.0-05 Software Techniques 

1000> ; STRAIGHT EXECUTION 
1000 > ; 

1000> C 

THIS IS LINE 1010 

THIS IS LINE 19000 

ERROR!, ERR = 52 ERR = 1020 

>RUN DEBTST 

DebiDEBTST VT.OOS Software Techniques 

1000> ; BREAKPOINT DEMO 
1000 > ; 

1000> B 1020 
1000> B 19000 
1000> C 

THIS IS LINE 1010 
1020> C 

ErnrDEBTST, Err:00052, Erl:01020 
19000> C 

THIS IS LINE 19000 
ERROR!, ERR = 52 ERR = 1020 

>RUN DEBTST 

DebiDEBTST V7.0-05 Software Techniques 

1000> ; GOTO DEMO 
1000 > ; 

1000> G 1050 
1050> S 

THIS IS LINE 1050 
1060> G 1000 
1000> B 19000 
1000> C 

THIS IS LINE 1010 

Ern:DEBTST, Err:00052, Erl:01020 

19000> G 1000 

Ern:DEBTST, Err:00052, Erl:01020 
1000> C 

THIS IS LINE 1010 

?Illegal number at line 1020 in "DEBTST" 
>RUN DEBTST 

DebiDEBTST V7.0-05 Software Techniques 

1000> ; RESUME DEMO 

1000 > ; 

1000> B 19000 
1000> C 

THIS IS LINE 1010 
Ern:DEBTST, Err:00052, Erl:01020 
19000> R 1000 
1000> C 


upfPf / y > 
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THIS IS LINE 1010 
ErnrDEBTST, Err:00052, Erl:01020 
19000> R 1030 
1030> C 

THIS IS LINE 1030 
Ern:DEBTST, Err:00010, Erl:01040 
19000> R 1050 
1050> C 

THIS IS LINE 1050 


ErntDEBTST, Err:00052, Erl:01020 
19000> R 1030 
1030> C 

THIS IS LINE 1030 
THIS IS LINE 19000 
ERROR!, ERR = 10 ERR = 1040 
> 


>RUN DEBTST 


9.0 Summary 


DebiDEBTSr V7.0-05 Software Techniques 

1000> ; TRACE DEMO 
1000 > ; 

1000> T 
1000> C 
At line 1000 
At line 1010 
THIS IS LINE 1010 
At line 1020 
At line 19000 
THIS IS LINE 19000 
At line 19010 

ERROR!, ERR = 52 ERR = 1020 
At line 32767 

>RUN DEBTST 

Deb:DEBTST V7.0O5 Software Techniques 

1000> ; BREAKPOINT DEMO 
1000 > ; 

1000> B 19000 
1000> C 

THIS IS LINE 1010 

Ern;DEBTST, Err;00052, Erl:01020 

19000> U 19000 


DEB is a small (under 500 words) limited function 
debugging routine for Basic-Plus 2 programs. In many 
cases, the functions available will allow the applications pro¬ 
grammer to debug the program at hand. DEB is not in¬ 
tended to be a functional replacement for the supported 
debugging facility, but it does have a place in the applica¬ 
tions programmer's toolbox. 


.Enabl LC 

Title DEB, <Mini-debugger/tracer > ,05,02-fiAY-81, <Sle> 

; Package: In-llouse 

; l/ritten by: Steven L. Bdv/aros 

I Date: 23-Aug-80 

; Copyright (C) 1980 

I Software Techniques 

; Los Alanitos, California 90720 

; This software is furnished under a license for use only on a 

; single computer system and may be copied only with the inclusion 

; of the above copyright notice. This software, or any other 

; copies thereof, may not be provided or otherwise made available 

; to any other person except for use on such system and to one vdio 

; agrees to these license terms. Title to and ownership of the 

I software shall at all tines remain in Software Techniques. 

; This information in this document is subject to change v/ithout 

; notice and should not be construed as a commitment by Software 

; Techniques. 

; This software is un>reieased and Software Techniques has no 

; corjr.!itment to support it at this time, unless stated elsewiiere 

; in writing. 


WHERE 

OH 

WHERE? 

Somewhere out there, several years 
ago, there was a (device (driver that 
emulate(d an RS an(d useid one or more 
MB of 11/70 memory instea(d of a (disc. 
If you just happen to have it, we will 
sprea(d it aroun(d an(d a lot of people 
will benefit. 

Contact Dave Mallery at (215) 364-2800 


DEC 

RSTS/E USERS 

^From one of the pioneers in commercial 
data processing using RSJS. Off the shelf 
software ready for immediate delivery. 
Completely interactive. Extensively 
documented. Fully supported. Ideal for 
OEM’s, service bureaus or end users. 
Cost effective solutions including; 

• ACCOUNTS PAYABLE 

• GENERAL LEDGER 

• FINANCIAL REPORTING 

• ACCOUNTS RECEIVABLE 

• PAYROLL 

• FIXED ASSETS 

For complete details, contact us at: 



Plycotn 


P.O. Box 160 
Plymouth, IN 46563 
(219) 935-5121 



services, inc 
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t 




.Psect 

$$SODS 


; 

Ver/Rdit Oate 

reason 

$$?ODS: 



; Start of 55;$OD'.'. 

; 




.Psect 

$$$ODU 





SS$ODU: 



; Start of $$SODT. 

; 

V7.0-01 23-Aug-80 

Initial conception. 





; 


(SLE) 


.Psect 

Deb 

; Data area. 

; 

V7.0-02 30-Aug-80 

Add debugger stuff. 





; 


(SLE) 

; 

Byte aligned data. 


; 

V7.0-03 03-Sep-80 

Add ERM, ERR, ERL. 





; 


(SLE) 

Etext: 

.Ascii 

/Ern:/ 


; 

V7.0-04 23-JAM-81 

FIX MISC. BUGS. 

El: 

.Dlkb 

6 


; 


ADD "O" COMMAND. 


.Ascii 

/, Err:/ 


; 


(SLE) 

E2: 

.Blkb 

5 


; 

V7.0-05 02-MAY-81 

TEST FOR ODT BEFORE BPT. 


.Ascii 

/, Erl:/ 


; 


TEST FOR EXACT MATCH ON LINENUMBER. 

E3: 

.Blkb 

5 


; 


(SLE) 


.Byte 

15, 12, 0 





Elen 

* 

.-Etext 


; 



FTEXT: 

.ASCII 

/%BPT TBL FULL./ 


; 

General Description 



.Byte 

15,12 


; 



Flen 


.-Ftext 


; 

This routine replaces 

the Basic-Plus 2 LIN$ routine. 

Gtext: 

.ASCII 

/%LINE NOT FND./ 


; 

This routine allows you to do 

some minor debugging, and display 


.Byte 

15,12 


j 

some tracing info. 


Glen 

- 

.-Gtext 


; 

Debugging conanands available are: 


.Even; 

in the quietest moments... 

; 



KPUF: 




; 

D linenumber 

; Set breakpoint at linenumber. 

Itext; 

.Byte 

15,12 


; 

C 

; Continue until next breakpoint. 


.Ascii 

/Deb:/ 


; 

E 

; Exit program. 

Name: 

.Blkb 

6 


; 

G linenumber 

; Goto linenumber. 


.Ascii 

/ V/ 


; 

0 

; Execute BPT (enter ODT.) 


.Byte 

Sysvel/400i377, Sysveei377 

; 

R linenumber 

; Resume linenumber. 


.Byte 

Sysvee/4004377, '- 


; 

S 

; Set step mode. 


.Byte 

$$$veri377, $$$ver/400fc377 

; 

T 

; Set tracing flag. 


.Ascii 

/ Software Techniques/ 

; 

U linenumber 

; Un-break linenumber. 


.Byte 

15, 12, 12 


; 

X 

; Exit program. 

Hen 

s 

.-Itext 


; 

<CR> 

; Advance to next step/breakpoint. 

Klen 

« 

.-Kbuf 

; Length of keyboard buffer. 




Otext: 

.Ascii 

/%ODT NOT FND./ 


; 

Assembly instructions: 



.Byte 

15,12 





01 en 

m 

.-Otext 


; 

MAC DEB ■ PRE, COfIMOtl, 

DEB 





; 



Ntext: 

.Ascii 

/%BPT NOT FND./ 


; 

! 1 



.Byte 

15,12 


; 

! - — 

-is on the SYSGEIl tapes 

Nlen 

m 

.-Ntext 


; 










Ttext: 

.Asciz 

/At line / 

; Tracing text. 

; 

Linking instructions: 



.Byte 

15,12,0 


; 

Edit the DDL, CHD, 

or TKB connand line to include a 

Wtext: 

.Ascii 

/?What?/ 


; 

reference to the object module 

DEB. Note: do not link to BASICS 


.Byte 

15,12 


; 

because references to resident libraries are resolved before 

Wien 


.-V/text 


; 

object modules. Ignore the TKB 

error message: 





; 




.Even 



; 

%TKB — *DIAG*-HODULE $ERROR MULTIPLY DEFINES SYMBOL LIN$ 





; 



; 

Word aligned data. 


; 

Since our module is 

referenced first, the task-builder 





; 

will ignore the Plus-2 routine. 


Bkptbl: 

.Blkw 

12 

; Breakpoint table. 




Bkplen 

- 

<.-Bkptbl>/2 

; Size of breakpoint table. 

i 

; 

Global Symbols 


Caltbl: 

Cmd 

B,Bre 

; Set breakpoint. 

; 




Cmd 

C,Con 

; Continue. 





Cmd 

E,Exi 

; Exit. 


.Globl Lin$ 

; Entry points. 


Cmd 

G,Got 

; Goto. 


.Globl $Cbdsg 

; Number conversion routine. 


Cmd 

0,0dt 

; Execute BPT. 


.Globl $Cdtb 

t Number conversion routine. 


Cmd 

R,Rsu 

; Resume. 


.Globl $Otsv 

; OTS pointer. 


Cmd 

S,Ste 

; Step. 


.Mcall ExitSs 

; Exit macro. 


Cmd 

T,Ett 

; Enable tracing info. 





Cmd 

U,Unb 

; Un-break. 

; 




Cmd 

X,Exi 

; Exit. 

; 

Macros 


Callen 

- 

<.-Caltbl>/4 

; Number of entries in call table. 

t 



Curlin: 

.Word 

0 

; Current line number. 

.Macro 

Cmd Char,Rtn 







.Byte ''Char,0 

; Character command. 

Rsw: 

.Word 

S4*C<T> 

; Routine status word. 


.v;ord Rtn 

; Routine address. 





.Endm 

Cmd 


t 







t 

Mainline Program 


.Macro 

Num$ Nuro 


; 





Push R1 

; Save R1. 






Push R2 

; Save R2. 

Ini: 

MOV 

fNOP,Lin$ 

; So that we will only do this once 


MOV Nuro,Rl 

; Number in binary. 


Getots 

RO 

; Get OTS pointer. 


MOV #377,R2 

; No zero suppression. 


Add 

*Nmptr,R0 

; Point to module name pointer. 


Call $Cbdsg 

; Convert Binary to Decimal, SiGned 


MOV 

(RO),R0 

; Point to module name. 


Pop R2 

; Restore R2. 


MOV 

«Name,R2 

; Point to name area. 


Pop R1 

t Restore Rl. 


MOV 

(R0)+,(R2)+ 

; "NO 

.Endm 

Mum$ 



MOV 

(R0)*»-,(R2) + 

; tlA 





MOV 

(R0)+,(R2)+ 

; ME* 

.Macro 

Muml$ Num 



Print 

ntext, lllen 

; Print out the identifier. 


Push R1 

; Save Rl. 






Push R2 

; Save R2. 

Lin$: 

Br 

Ini 

; Only the first time. 


MOV Nuro,Rl 

; Number in binary. 


MOV 

R4,§$Otsv 

; Store the pointer to the line 


Clr R2 

; Zero suppression. 


Mov 

(R4)+,Curlin 

; Save the current line number. 


Call $Cbdsg 

; Convert Binary to Decimal, SiGned. 


Push 

R4 

; Save R4. 


Pop R2 

; Restore R2. 






Pop R1 

; Restore Rl. 


Hov 

«Bkptbl,R0 

; Address of breakpoint table. 

. Endm 

Muml$ 



MOV 

•Bkplen,Rl 

; Length of breakpoint table. 




10$: 

Cmp 

Curlin, (R0)-t> 

; Is this it? 

.Macro 

Print Addr, Len 



Beq 

20$ 

; Sure enough. 


Call Clrxrb 

; Clear the XRB. 


Sob 

Rl,10$ 

; Loop until done. 


MOV Len,(R0) 

; Length of text string. 






MOV (RO)-t-, (R0)-»- 

; ■ " • " 


Bit 

«S,Rsw 

; Step pending? 


Hov Addrr(R0)-f 

; Address • • • 


Beq 

70$ 

; Don't stop the task. 


.Write 






. Endm 

Print 


20$: 

Bis 

#S,Rsw 

; Set step mode. 

; 



30$: 

Bit 

•A,Rsw 

; Advance? 

; 

Variable Description and Initialization 


Bne 

70$ 

7 Don't stop the task. 

; 




Bit 

IS,Rsw 

; Step pending? 


.Bsect 

; Rsw status bits. 


Beq 

70$ 

; Don't stop the task. 

A: 

.Blkb 

; Advance to next step/breakpoint. 





S: 

.Blkb 

; Step pending. 


Getots 

RO 

; Point RO at $Otsv. 

T: 

.Blkb 

; Trace requested. 


Bit 

t Epend,Bitwrd(RO) 

; 'Error pending'? 





Beq 

40$ 

; Good. 


.Psect $CODD 



MOV 

iEl,R2 

; Point at CRN$ text output area. 

SCODD: 


; Start of $CODE. 


MOV 

Ernl(RO),(R2)+ 

; "MO 


.Psoct CCODP 



Mov 

Ern2(R0),(R2)+ 

; NA 





MOV 

Ern3(R0),(R2)+ 

I ME" 








June 1981 page 25 

RSTSPROFESSIONALRSTSPROf^lONALRSTSPROFESSIONAU^STSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONAlJCTSPROFESSIONALRSTSPROFESSIONALRSTSPROF^IONALRSTSPROF^IONALRSTrSPRO^ 


RSTS/E SOFTWARE PACKAGES 


■ KDSS, a multi-terminal key-to-disk data 
entry system. (Also available for RSX-11M.) 

■ TAM, a multi-terminal screen-handling 
facility for transaction-processing applica¬ 
tions. (Also available for RSX-11M.) 

■ FSORT3, a very fast sort. Directly sorts 
RSTS/E files containing up to 16 million 
keys or records. Up to 70 times as fast as 
the RSTS-11 Sort package in CPU time. 

■ SELECT, a convenient, very quick package 
for extracting records that meet user-speci¬ 
fied selection criteria. 

■ BSC/DV, a device driver for the DEC DV11 
synchronous multiplexer that handles most 
bisynchronous protocols. 


■ COLINK, a package that links two RSTS/E 
systems together using DMCIIs. Supports 
file transfers, virtual terminals, and across-the- 
link task communication. 

■ DIALUP, a package that uses an asynchro¬ 
nous terminal line to link a local RSTS/E 
system to a remote computer system. Sup¬ 
ports file transfers, virtual terminals, and 
dial-out through a DN11. 

(The performance-critical portions of the first 
five packages are implemented in assembly 
language for efficiency.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 


40$: 


MOV 

MOV 

MOV 

Num$ 

Hov 

Ifuro$ 

Print 

MOV 

Nunil$ 

Movb 

Movb 

MOV 

Sub 

Print 

Call 

MOV 

Tst 

MOV 

.Read 

Call 

Cropb 

Beq 

Cin^ 

Beq 

Tstb 

Bmi 

Kov 

Hov 

Ciapb 

Bne 

Tst 

Call 

Br 


Errnum(RO),R1 
OBrlptr(RO),R2 
*E2,R0 
R1 

•E3,R0 

R2 

tEtext,tElen 

tKBUF,R0 
Curlin 
#'>,(R0)+ 

• 40, (RO)-*^ 

R0,R1 

•KBUP,R1 

•KBUP,R1 

Clrxrb 
•KLEM,(R0)+ 
(R0) + 

•Rbuf,(RO) 


Clean 
(RO),•'I 
40$ 

(RO),#•; 
40$ 

(RO) 

70$ 

tCaltbl,R2 

«Callen,R3 

(R0),(R2) 

60$ 

(R2)-f 

0(R2) 

30$ 


; ERR. 

; ERL. 

7 Point at ERR output area, 
j Convert ERR to ASCII. . 

7 Point at ERL output area. 

7 Convert ERL to ASCII. 

7 Print out the error text. 

7 Address of output area. 

7 Convert to ASCII. 

7 •>" 

7 <SP> 

7 Save the final address. 

7 How long? 

7 Print prompt. 

7 Clear XRB. 

7 Length of input buffer. 

7 Skip XRB+XRBC. 

7 Address of input buffer. 

7 Do the get. 

7 Clear up the command 
7 Basic-Plus (2) comment? 

7 Go get another command. 

7 RSX style comment? 

7 Go get another command. 

7 See what we got. 

7 If minus, then advance. 

7 Address of call table. 

7 Number of entries in table. 

7 Right command? 

7 Too bad. 

7 Point to the routine address. 
7 Dispatch to the routine. 

7 Branch back for next command. 


30$: 


MOV 

MOV 

Tst 

Beq 

Sob 

Print 

Br 

Mov 

Call 

MOV 

Return 


#Bkptbl,R4 
•Bkplen,Rl 
(R4) + 

20 $ 

Rl,10$ 

fPtext,IPlen 
30$ 

#Kbuf-H,R0 

$Cdtb 

R1,-(R4) 


Clean up the input buffer. 


10 $: 


Hov 

MOV 

Mov 

Add 

Cmp 

Beq 

Cm^ 

Bgt 

Inc 

Br 

Cmpb 

Bit 

Bicb 

Movb 

Br 

Movb 

Hov 

Return 


•Rbuf,R0 

e#Xrb+Xrbc,Rl 

•Rbuf,R2 

R0,R1 

R0,R1 

40$ 

(RO),^40 
20 $ 

RO 

10 $ 

(RO),4'A+40 
30$ 

•40,(RO) 
(RO)*, (R2)<»- 
10 $ 

•377,(R2) 
•Rbuf,R0 


7 Address of breakpoint table. 

7 Length of breakpoint table. 

7 Empty? 

7 Good. 

7 Loop until done. 

7 Tell the poor abuser. 

7 Table full, too bad. 

7 Point at line number. 

7 Convert Decimal To Binary. 

7 Put the number into the breakpoint 
7 table. 

7 Back to mainline code. 


7 Address of input buffer. 

7 Lenght of text entered. 

7 Address of 'cleaned input.' 

7 End of input. 

7 At end? . 

7 Good, lets go home. 

7 <SP>? 

7 Ignore all trash. 

7 Bump pointer past trash. 

7 Loop back for next character. 
7 lower-case character. 

7 Ok. 

7 Convert to UPPER-CASE. 

7 Hove a byte. 

7 Loop until done. 

7 Mark the end of the input. 

7 Point at the cleaned input. 
Back to mainline code. 


60$: 

Add 

• 4,R2 

7 Point to next table entry. 






Sob 

R3,50$ 

7 Loop until done. 

7 





Print 

•V7text,r7len 

7 Tell the poor abuser. 

; 

Clear 

Xrb. 



Br 

30$ 

7 Branch back for next command. 

7 




70$: 

Bic 

•A,Rsw 

7 Clear advance bit. 

Clrxrb: 

Mov 

exrb,R0 

7 Address of Xrb. 


Bit 

•T,Rsw 

7 Tracing requested? 


Push 

RO 

7 Save the address of Xrb. 


Beq 

80$ 

7 ?Esta muy loco? 


Push 

R1 

7 Save the old R1. 


Call 

TRA 

7 Print the tracing info. 


Hov 

«<Xrbsiz/2>,Rl 

7 Size of Xrb in words. 

80$: 

Pop 

R4 

7 Restore R4. 

10$: 

Clr 

(R0) + 

7 Zap a word. 


Jmp 

0(R4)+ 

7 Exit. (Back to Plus 2) 


Sob 

Rl,10$ 

7 Loop until done. 






Pop 

R1 

7 Restore old R1 

7 





Pop 

RO 

7 Restore address of xrb. 

; 

7 

Subroutines 



Return 


7 Back to mainline code. 

t 




7 

Continue. 



Set a breakpoint. 
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Con; 

Die 

4S,Rsw 

; Clear 'STEP PEIIDirW 

Odt: 

Tst 

#$$$ODU-$$$ODS 

; Is ODT here? 


Bis 

#A,Rsw 

; Set advance. 


Bne 

10$ 

; Yes, do the trap. 


Return 


; Back to mainline code. 


Print 

«Otext,«Olen 

; No, tell the poor abuser. 






Br 

20$ 

; And exit. 

; 


tracing 


10$: 

Bpt 


; Enter ODT. 

1 

Enable 


20$: 

Return 


; Back to mainline code. 

Ett; 

Bis 

'fT,Rsw 

; Set the proper bit. 

; 

; 

Resume 

linenumber. 



Return 


; Back to mainline code. 

; 

Rsu: 

Getots 

RO 

; Point RO at $Otsv. 


Exit program 



Bic 

#Epend,Ditwrd(R0) 

; Clear 'error pending.' 

; 





Br 

GOT 

; Same code as GOTO. 

Exi: 

Exit$s 


; Exit to default RTS. 

; 

Set step mode. 



Halt 


; We shouldn't get this far. 

1 

t 


; 




Ste: 

Bis 

#AlS,Rsw 

; Set step mode and advance. 

; 

; 

Goto linenumber. 



Return 


; Back to mainline code. 

Got: 

MOV 

*Kbuf+l,R0 

; Point at line number. 

; 

; 

Print 1 

the tracing info. 



Call 

$Cdtb 

; Convert Decimal To Binary. 

; 





Mov 

» $CODD,RO 

; Point to start of $CODC. 






MOV 

« $CODF,R3 

; Last word in $CODE. 

Tra: 





Mov 

»Lin$,R2 

; Address of our LIN$ routine. 


Mov 

«Kbuf,R0 

; Point at the output buffer 

10$: 

Crap 

R0,R3 

; End of $CODE? 


Hov 

#Ttext,R2 

; Point at the text strings. 


Bhi 

30$ 

; Too bad. 


Call 

Movtxt 

; Hove a chunk of text. 


Crap 

(R0)+,R2 

; Pointing at LIN$? 


Numl$ 

Curlin 

; Current line number. 


Bne 

10$ 

; Loop until it is. 


Call 

Movtxt 

; Move a chunk of text. 


Crap 

(RO),R1 

; Right line number? 


Mov 

R0,R1 

; Save final address. 


Bne 

10$ 

; Too bad. 


Sub 

fKbuf,R1 

; How long? 

20$: 

Tst 

-(RO) 

; Decrement to point at LIN$. 


Print 

•Kbuf,R1 

; Print out the tracing data, 


Mov 

R0,2(SP) 

; Point to that statement. 


Return 


; Back to mainline code. 


Bis 

*A,Rsw 

; Set advance bit. 






Br 

40$ 

; Exit routine. 

; 




30$: 

Print 

*Gtext,*Glen 

; Tell the poor abuser. 

; 

Un-break. 


40$: 

Return 


; Back to mainline code. 

j 

Unb: 

Hov 

#Kbuf+l,R0 

; Point at line number. 

; 

Hove a 

chunk of text. 



Call 

$Cdtb 

; Convert Decimal To Binary. 

; 



Mov 

»Bkptbl,R2 

; Address of breakpoint tabl< 






Mov 

«Bkplen,R3 

; Length of breakpoint table. 

Hovtxt; 

Movb 

(R2)+,(R0)+ 

; Move a byte. 

10$: 

Crap 

Beq 

Sob 

Rl,(R2)+ 

20$ 

; Pound it? 


Bne 

Movtxt 

; Until we get a null. 


R3,10$ 

; Loop until done. 


Dec 

Return 

RO 

; Backup pointer one char. 

; Back to mainline code. 


Print 

Br 

*Ntext,«Nlen 

30$ 

; Tell the poor abuser. 

; Table full, too bad. 





20$; 

Clr 

-(R2) 

; Clear out the entry. 

; 




30$: 

Return 


; Back to mainline code. 

t 

Execute 

BPT (enter ODT) 






VERSION 2.0 NOW AVAILABLE: 

QUE-11 - V2.0 

ONE JOB SPOOLER FOR RSTS/E 
CONTROLS ALL SPOOLING 

REPLACES: 

• SPLIDL, SPLRUN . . . etc. 

• BATIDL, BATRUN . . . etc. 

• QUEMAN, QUMRUN . . . etc. 

• OPSER, OPSRUN . . . etc. 

• ATPRO 

• ATPK 

QUE-11: 

• DEC QUE Compatible 

• One job controls all spooling 

• Saves small buffers and job slots 

• Spawns jobs as needed 

• Handles line printer and keyboard spooling 

• Controls as many BATCH JOBS as 

pseudo-keyboards 

• Full parameter replacement in QUE calls 

• '"DO" command replaces indirect processors 

• QUEMAN SYS call supported 

• Program deliveries - NOW 

• Only $995 single cpu license 

• Trial Version $100 

For more information contact: 

On Track Systems, Inc., P.O. Box 245, Ambler, PA 19002 
Phone: 215/542-7008 


RSTS PROFESSIONAL 

Box 361 • Ft. Washington. PA 19034 • (215) 542-7008 

□ PAYMENT ENCLOSED for one year’s subscription (4 issues). 

US 3rcl class. $25 / Canada & US 1st class: $35 

All other countries (air mail): $40. payable in US dollars. 

□ BILL ME for one year's subscription: 

□ US 3rd class / □ Canada or US 1 st class / □ Other foreign. 

Please send Back Issues circled: 

□ MO per issue enclosed. 

□ Bill me for M2.50 per issue. 

Vol. Vol. 2. **2 Vol. 2. ^4 Vol. 3. ^2 

Vol. 2. <^1 Vol. 2. <^3 Vol. 3.^1 

Name _ 

Address _ 

_Suite_ 

City_State_Zip_ 

Telephone ( ) _Country_ 

FREE CLASSIFIED AD WITH SUBSCRIPTION!! 

Your first 12 words are absolutely FREE, only $1.00 per word 
thereafter. Use the space provided below. 


V3.2 
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i^iiKaaDFii 

Finally! a publication exclusively for dec * or 
DEC-related users, manufacturers, and consultants! 


What Is HARDCOPY? 

HARDCOPY Is a bl-monthiv magazine written and edited for the community of users 
and vendors of DEC and DEC-compatible equipment. Topics ranging from new 
peripherals to software updates give the reader a broader, more In-depth coverage 
than most all other publications. 

Who reads hardcopy? 

HARDCOPY is exclusively directed at the DEC marketplace. Along with Its primary 
readership of end users, systems analysts, site managers, Mis directors, and 
engineers HARDCOPY also circulates to manufacturer consultants and OEM's of 
OEC<ompatible peripherals and software vendors. 

Inside HARDCOPY... a magazine covering It all! 

Five HARDCOPY sections — DEC NEWS, EDITORIAL, DEC COMPATIBLES, BUSINESS 
SPOTLIGHT, SOFTWARE and VAX INFO highlight all the latest topics of Interest 
concerning small, medium and large scale computers. 

Why should you subscribe? 

If you are a user, manufacturer, consultant or OEM of DEC related equipment, 
HARDCOPY will provide you with highly Informative, up-to-date news ranging from 
general interest articles to new product announcements. 


To receive hardcopy Magazine fill out the qualification form below 


liFir^asDPiJ 

Subscription Form 

Name_ _ 

Title_ 


IMPORTANT — To qualify, please answer all questions below. 
Type of DEC computer at this location: 

CPU_ Operating System_ 

Disk_ Tape _ 


Company _ 

Company Address_ 

City/State/Zip_ 

Phone( )_ 

Signature _ 

Date_ 

O Check here if you wish to receive advertising information from 


Floppy . 
CRT_ 


Printer . 
Other 


Primary product or service of your firm at this location: 
End User_ OEM (type)_ 


Hardcopy. 


System House _ 

Consultant _ 

Data Processing . 
Software_ 


MFC _ 

Educator_ 

Government. 
Other_ 


is published six times per year by Seldin Publishing, Inc. One year subscription may be purchased at the 
following rates: 

United States.$16.(X) 

All Other Countries.$25.00 

SEND TO FfIfVliaDFlJ BOX 759 — BREA, CALIFORNIA 92621 Phone (714) 632-6924 


'DEC Is a registered trademark of Digital Equipment Corporation 




































page 28 June 1981 

RSTSPROFESSIONALRSTSPROFESSIONALJ^STSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPTOFESSIONALRSTSPROFESSIONALRSTSPROI^IONAL^^ 


LOOKING FOR 
A VT100/VT52 
ALTERNATIVE? 


. $795 (quantity one) 

. Volume discounts available 
. Extended Parts Warranty 
available 

. Immediate Delivery 

, VT52® or ANSI Escape 

sequence 

. High-resolution 24X 80CRT, 
25th line 

• Full ASC II Character Set, 

upper and lower case with 
true descenders and 
VT52® graphics 

• Reverse video by character 
. Professional-touch key¬ 
board, 72 keys, 12 function 
keys, 12-key numeric 
keypad 

• Full-screen or line edit/ 

transmit 

• Keyboard, switch, or soft¬ 

ware programmable 

systetus, inc. 

113 N. Center •Bloomington, IL 61761 

Authorized Dealer 

and Service Center 




data 

systems 

Z1§ VIDEO TftMINAl 


LOOK 

at the "tear-out" cards in this issue. 

There's a "HOT to COLD" form for 
rating our articles. Let us know what 
is most and least interesting to you. 

There’s a FREE gift for you. Bring in 
new subscribers and collect rewards. 
See "BOUNTY HUNTERS" card. 


From the editors . . . 

. . . continued from page 4 


Dave Mailer^ 

simultaneous TECO users editing macro for 
micros. Try doing that with EDT. 

All of the above sessions are great ex¬ 
amples of how the user community can use 
□ECUS to meet its real needs. 

The gang from North County Computer 
Services delivered an excellent series on 
Basic + 2 while Software Techniques car¬ 
ried on with their speciality—disk optimiza¬ 
tion. 

I noticed large numbers of users com¬ 
plaining about disk problems In the open 
sessions — “We get multiply allocated 
clusters all the time’’, “My system stops cold 
and locks up if I run out of room on my 
RM05” etc..etc. 

Clearly, there are lots of field service 
and software service types in need of some 
education. It amazes me to see that so many 
people could actually believe they have soft¬ 
ware problems when some controller was 
delivering data blocks into their satt buf¬ 
fers! 

There was an excellent presentation by 
Glen D. Kinzey from Professional Data- 
systems on “ Basic Communications". This is 
a clearly NON DEC area that should be 
developed in future symposia. So few users 
have any idea about modems and muxes. 1 
recently heard about a site using 22 lines 
and 22 pairs of Bell rented modems on an 
application that could have used one or two 
lines and pairs of stat mux s. 

1 attended a “ Commercial VAX" ses¬ 
sion. Unfortunately, the title of the session 
is still a contradiction. The session was like a 
late—5C RSTS wish list in 1975.1 feel it will 
take two or three more years for VAX to 
recover from its initial RSX / scientific bias. 
Boy am I glad I don't have to waste six 
DECUS’S lobbying for what I already have. 
There were practically no user papers from 
the VAX folks—too bad. 


I 



New RSTS Product Manager 
J. Thomas McKinney 
Miami DECKS 


Rior 


Ir 



The New 11/24! 

The RSTS Engine for the 80’s. 

Miami DECUS 

I think that the high point for me. was 
the opportunity to hear Gordon Bell 
reminisce on the invention of the UNIBUS. 
His talk consisted of a large number of 
“ lessons" from the history of computers, il¬ 
lustrated profusely with slides from the 
Digital Computer Museum. DECUS has pro¬ 
vided me with the ability to meet several of 
the heroes and heroines of our industry in 
person and I am very grateful. I was also 
delighted that Mr. Bell had indeed heard of 
our magazine. 

The 11 /24 was available in the exhibit 
hall for inspection. This is the RSTS engine 
for the next few years. It is too soon to real¬ 
ly have any good benchmark info, on this 
machine, but by next DECUS. we should 
have some good numbers. I wonder (to 
myself) If it will get CPU bound before it can 
really use all that memory-time will tell. This 
is the machine that clearly shows the direc¬ 
tions of RSTS. however. Gordon Bell made a 
remark that impressed me — he said: 

“ always resist the impulse to build the last 
machine of a series." I guess that’s why we 
have an 11 /24 and not (yet) and 11 /84. The 
Commercial OEM group stated in a product 
panel that they have chosen RSTS as the 
operating system of preference for 
PDP/11 s in the 80’s. The RSTS product line 
folks said they expect 20.000 RSTS licenses 
by 1985 (and agree with me that there are 
about 8000 known licenses now). 

One notable comment — “ Datatreive 
has their WOMBAT, RSTS should have a 
squirrel mascot because were always 
caching.““ 

The logistics—Miami is nice, especially 
after a bad winter. The hotels are beautiful 
but the prices are more suited to an OPEC 
meeting or a convention of Cocaine dealers. 
The “ food ” that was "served" at the conven¬ 
tion center was a disgrace. We stopped 
eating there after the second lunch. 1 think 
DECUS should send out refunds and sue 
Miami. The campgrounds were so far away 
that one seriously considered camping 
there. 






















A few years ago,you bought DEC controllers 

or you took chances. 


Time was you couldn't trust 
anyone. Price was often lower. 
Delivery was sometimes faster. 
But let's just say quality, reliability 
and service left lots to be desired 
(if the product even worked at all]. 

Times change. Enter Emulex. 

First we decided that price 
shouldn't be the only reason to buy 
our controllers even though they 
cost less. The design goal of every 
tape, disk and communications 
controller we make is to go DEC 
one better. Emulex controllers 
actually optimize the DEC sys¬ 
tems in which they're installed. 

Emulex controllers would 


also be easier to install — plug 'em 
right into a backplane - hardware 
and software transparent. 

We decided, also, to concen¬ 
trate our expertise on DEC. We 
know DEC computers and 
designed products to improve 
them Others didn't. You wouldn't 
remember their names. 

In the last two years one 
Emulex success has led to another. 
Today. Emulex 
provides 
OEMs and 
end users with 
the industry's 
broadest line 


of controllers that improve DEC 
performance across the board. If 
we did anything wrong, it was in 
setting a new standard. Compet¬ 
itors stopped imitating DEC and 
started trying to imitate us. 

So even today unless you're 
careful, you can still take chances 
Theres a big difference between 
an imitation DEC controller and 
a genuine Emulex. 

Emulex. The genuine alternative. 

EMULEX CORPORATION 
2001 East Deere Avenue 
Santa Ana. CA 92705 
(714) 557-7580 

EMULEX TWX 510-595-2521 
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VAX & RSTS/E (V. 7) USERS 

OUR RABBIT SYSTEM ALWAYS TELLS 
THE TRUTH ABOUT YOUR COMPUTER 

Like who is using it, when, where, what resources, and how much... 
all in great detaii or summarized-your choice. 


RABBIT will give you the most complete set of user accounting 
info you’ve ever seen — complete, detailed information for 
each user session. It even creates invoices, too, if you wish. 



RABBIT will also draw a picture worth a 1000 words about your 
system performance. In fact it will draw you lots of pictures 
showing CPU, DIO, PAGE FAULTS (and the like) consumed 
every hour, every day, every week. It’ll graphically depict your 
“average” day.. .with or without your biggest users so you can 
better load your system for peak response and throughput. 

RABBIT makes life easier for the system user, system 
manager, operating management and the accounting depart¬ 
ment .. .and it never tells a lie. 

RAXCO markets a complete line of operational support, finan- 
cia planning and data management systems for DEC compu¬ 
ting equipment. For a free catalog of these systems contact: 


INC. 




3336 N. Flagler Drive 
West Palm Beach, 
Florida 33407 

(305)842-2115 
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SYSTEM PERFORMANCE 
ANALYSIS FOR VAX 

AND RSTS/E USERS 


If your system is suffering from slow response, clogged I/O, reduced throughput, 
then put RAXCO’s RABBIT-2 on your case. RABBIT-2 locates the trouble spots in 
your operating system and identifies the source of the problems. 

RABBIT-2 will chart your system performance, on an hour by hour, user by user, or 
program by program basis. RABBIT-2 will quickly sketch a profile of your average 
system day,your average user demands, and your average program resource 
requirements. 

RABBIT-2 provides the tools you need to investigate system throughput in terms of 
CPU, I/O, memory, connect, KCTs, etc. — over any time period you specify. You 
can play What if? by simulating the removal of the offending program or user and 
displaying the results of the change. 



RABBIT-2 capabilities include; 

Batch and interactive analysis 
Interval or time displays 
Resource consumption diagrams 
User and program investigation 
Graphic or numeric output 
WHO was on WHEN 
Profile analysis of users and programs 
Ratios of resources utilized 
Rankings of users and programs 
Forecasting of future resource consumption 


RAXCO markets a complete line of operational support, 
financial planning and data management systems for DEC 
computing equipment. For a free catalog of these systems 
contact: 




INC. 


Tn 


1 

A 



1 






3336 N. Flagler Drive 
West Palm Beach, 
Florida 33407 
(305)842-2115 
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A WORD ABOUT THE AUTHOR . . . 

Mike Draper is a principal in RAXCO. a computer software and services company specializing in DEC computer 
resource recovery systems. These systems include job accounting, performance analysis, resource accounting and auditing 
under VAX/VMS. RSTS. and RSX11m+. 

Mr. Draper has more than 20 years of experience in the data processing field, having worked with IBM and Multiple 
Access Ltd. before Joining RAXCO. 

In addition to resource recovery systems. Mr. Draper has extensive experience in financial planning systems. 


ANALYSING AND ALLOCATING 
DATA PROCESSING RESOURCES 

By Mike Draper. RAXCO INC. 


Despite the constantly decreasing hardware costs and the 
improvements in software tools, the cost of data processing 
activities remains a substantial expense for most companies, 
regardless of the type of system or service that they use. All 
too often, some. most, or all of this expense is allocated to the 
"Data Processing" or “Computer” department. Actually, how¬ 
ever. most of the cost of running a computer center should 
relate to end-users of the system rather than to the group that 
maintains the system. Whether the users are paying real cash 
dollars for the computer services or simply shifting around 
budget allocations makes no difference. A prime concern is still 
to account fairly and accurately. 

Two major problems that prevent many companies from 
using billing or chargeback as an effective management and 
control tool might be referred to as the "Shoemaker’s Child¬ 
ren" and the "Cart/Horse” syndromes. In the former, the DP 
personnel are so busy processing everyone else's data that 
they haven't the time to process their own. With the latter 
problem, when the question is asked "Why don't you do proper 
accounting? ” The answer is all too often. "The machine doesn't 
provide the data." And all too often, upper management 
accepts these excuses thereby sacrificing not only accountabil¬ 
ity. but more importantly, a large measure of control over 
computer related facilities. 


WHO NEEDS WHAT AND WHY! 

A good place to start with this investigation, as with many 
other types of projects, is at the end. What kind of reports 
would the controller or VP finance like to see on his or her desk 
before making decisions about adding hardware? What type of 
reports would tell the manager of information systems if a new 
policy was having the desired effect? What information would 
be valuable to the system manager to evaluate the effect of a 
department's use or to anticipate the effect of adding a new 
application? Perhaps most important of all is what kind of 
feedback would help the end-user to use the DP resources 
more effectively? 

There is another very important function performed by 
machine use accountability. Look at this graph: 


:iC9|C*9ic:|C3iC3iC9K***9t( 

;(c * ;|c 9ic * * ♦ ♦ 3tc 3«C :(c 9|C :(c :1c J«C sK 9|C 4c ♦ ♦ ♦ *Xc 

4c 4c 4c 4c * 4c 4c ♦ 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c * 4( 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4c 4c 4c 4c 4c 

Sun Mon Tue Wed Thur Fri Sat 

This is a very frequent occurrence. The *’s represent the 
amount of machine resources used each day. The Wednesday 
amounts are limited by the resource available. The totals for 
the other days are limited by various other factors. The white 
space above the the *'s on all except Wednesdays represents 
idle machine time. There is a similar profile for the hours of the 
day except it is two humped because of lunch hour. 

While this is not the case for all installations, it occurs 
more frequently than not. It is interesting to note that most DP 
managers and even fewer people in positions of accounting or 
responsibility are aware of the extent of the idle time on a 
"fully loaded system". I would not presume that some sort of 
resource accounting or auditing can cure this, or that a com¬ 
plete cure is possible or even desirable. Many financial people, 
however, feel twinges in their ulcers when they compare Mon¬ 
days and Fridays with Wednesdays. 

There are three areas where the information about who is 
using what, when is useful (or perhaps necessary). 

1. Financial Management 

2. Operational Management 

3. End-user Management 

Information, of course, is just the bread of the manage¬ 
ment sandwich. On top. it tells you where to start and on the 
bottom, it tells you if anything has changed. Effective resource 
accounting can also provide much of the meat of the sandwich 
as a tool for implementing policy. 


IMPLEMENTING POLICY. 

How can we get more people to use the computer on 
Mondays and Fridays? One way would be to just tell the worst 





June 1981 page 33 

RSTSPROf^lONALRSTSPROnESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROF^IONALRSTSPROFESSIONALRSTSPROFESSIONAlJ^STSPROFESSIONAlJ^STSF»ROFESSIONAU?STSPROFESSIONALRST^PROFESSION^^ 


offenders (if we can identify them), ‘You stop using the compu¬ 
ter on Wednesdays, you turkeys!!” In addition to perhaps not 
being an effective management approach, it is also going after 
a very complicated problem with a very blunt instrument. A 
more delicate approach might be more effective. 

Just the way every department head or project manager 
must estimate his or her manpower and other physical needs, 
why not have estimates of computer use? These, of course, 
might be based on accounting for previous projects or periods. 
Then, by giving discounts for off-prime time and perhaps even 
penalties for super-prime time, the users would have the 
option of trading off convenience and time effectiveness for 
cost effectiveness. There would be direct feedback every billing 
cycle and the ability to review patterns of changing use. 

Where projects or departments have budgets, the perio¬ 
dic review of percent complete versus budget used would be 
useful not only in evaluating the current period, but more 
importantly, for planning the next cycle. I am certainly not 
recommending the chargeback of computer use as a threat of 
heads rolling. The state of the art of estimating computer use 
is still far too primitive to expect accuracy. It is only through 
constant feedback that the art or science of estimating will 
develop. 

Realize the need for accountability is only the first step. 
Perhaps you have run through this scenario before. 

You: Frank 1 need some kind of chargeback perfor¬ 
mance evaluation, departmental accounting system. 

Frank: Well, you just tell me EXACTLY what you want 
and ril get someone on it as soon as ... 

You: I’m not exactly sure what I want, but it has to be 
useful and usable by various management levels. 

Frank: [Lecture ^324 “Computers Require Precision"] 

WHAT YOU REALLY NEED! 

You need a tool that will allow you to get answers to the 
type of questions that you know you have to ask but that you 
can’t ask until you get some other answers first. 

You need to give Finnicky Frank enough detail to shut 
him up and Ball-park Bob a brief enough summary so he might 
read it. 

You need simple pictures with simple numbers that the 
VP finance can stick on his wall and point to in meetings. 

You need general information to spot long term trends 
and specific information to analyze trouble spots. 

You need a standard set of reports that can be compared 
cycle to cycle, plus the adaptability to meet changing require¬ 
ments and provide special one shot reports. 

You need various levels of detail. 

You need ALL expenses relating to the DP facility com¬ 
bined into one statement. 

You will need various things that neither you nor I can 
anticipate until their time comes around. 

HOW DO YOU GET 
WHAT YOU NEED? 

You could go to your Systems Manager (Frank) and he will 
do one of two things. He might try to avoid the whole area as in 
the previous example, or he might say “Hey, that sounds like a 


terrific idea. I’ll get someone on it right away.’’ In this case you 
are really in trouble. “Someone" quickly becomes the perma¬ 
nent billing programmer/operator. You will not only not get 
the information that you need, but you will not get it weeks 
late and when you do get it, it will be wrong. Not getting what 
you want will also cost you more than you care to admit. 

A better approach might be to look around to see if maybe 
someone else has attacked the same problem. The manufac¬ 
turer of your equipment might have some useful software or 
even more useful ideas about "another 2 megs" or "distrib¬ 
uted processing" (another computer). Hopefully the time will 
come when machine accountability is considered as important 
a part of an operating system as a good hex dump. You might 
also take advantage of the various user groups. It is difficult to 
evaluate software from glossy brochures and slick sales 
pitches. 

How do you know when you do find a piece of software 
that may do the job? Particularly when you do not know what 
that job is? 

EVALUATING A COMPUTER 
ACCOUNTABILITY SYSTEM. 

The criteria for evaluating a computer auditing tool may 
be divided into several categories. 

Flexibility 

While flexibility is a virtue in almost any situation, it is more 
necessary in the audit and control area than in many other data 
processing activities. This is due firstly to the changing compu¬ 
ter hardware and software environment and secondly to the 
need of an auditing tool to respond to specific questions that 
can not always be anticipated. This differs from the usual 
accounting software that, once installed, requires only minor 
alteration from time to time. 

It is easy to look at a sample of reports and say, "Boy, could 
we use that kind of data!!", and forget to question if there is 
any more where that came from. Both the Data Processing and 
Accounting people will have various "suggestions" to improve 
the reports, and the system that can not easily respond to 
these “suggestions" will soon be relegated to a dusty backup 
tape of once bright ideas. 

Completeness 

In the area of cost allocation, it is easy to focus on the 
machine oriented costs and dismiss the so-called "minor" sup¬ 
port costs. While it is true that the CPU/CONNECT time values 
give a good rule of thumb as to who is doing what, there are far 
more costs associated with a computer center than the compu¬ 
ter itself 

Who is responsible for terminals, remote printers, tapes, 
manuals, courses, deliveries, programming, consulting and 
support? While sometimes some of these items must be 
included in “overhead", more often they can be allocated to 
specific users (if the system permits allocation of these costs). 
Many service bureaus have found that thousands of dollars 
have “ slipped through the cracks ” before they tightened up 
their charging system. 

Another area of completeness relates to the so-called 
"special ” types of services that each different company pro¬ 
vides. Do you offer plotting or data conversion or other off-line 
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facilities? Does it make sense to charge for some services on a 
per unit basis? Will the resource allocation system you are 
evaluating handle these types of accounting now and in the 
future? 

Accuracy 

Accuracy refers to more than just not making errors. It 
refers to the level of detail possible in both charging and 
reporting. An example might be Terminal Connect Charges'. 
You start out by saying "We will charge $10.00 per hour.", and 
then quickly realize that users with high speed equipment 
should be charged more than low speed equipment. Then 
someone asks about dedicated ports and someone else about 
the cost of using the package switching networks. Pretty soon 
the simple $10.00 per hour has mushroomed Into a very 
complex algorithm. 

While it may not be absolutely necessary to be quite so 
finicky about accuracy, the people who are being charged will 
be and accountants well know that the usefulness of any 
accounting relates directly to its accuracy. Even if you do not 
anticipate currently the need for great detail, it is definitely a 
plus in a computer auditing system. 

Acceptability 

No one likes getting bills. We all like it a lot less when we 
don't understand why we are being charged so much. Another 
thing that we don't like is surprises. If we were charged $3000 
last month, how come we are being charged $7000 this 
month? Computer people have a long legacy of providing end- 
users with the right answers in the wrong format. This is often 
because the end-user thought that the wrong format was the 
right format, until he actually had to read the report. The 
success of any computer accountability system is dependent 
upon the acceptance of the accountable user. 

This is often not an easy problem to solve. Some users 
may want to see all the bits and bytes while othersjust want to 
see summaries. The system manager may need data in one 
format, while the head accountant may require the same data 
in another format. These people all tend to ask the embarass- 
ing question. "If that computer is so darn smart why can’t it 
provide information in a form we can understand?" If a compu¬ 
ter accounting program is so smart, it should be able to. 

Selectivity 

There is a great deal of data available for both the billing 
and performance evaluation aspects of computer auditing. The 
usefulness of the auditing system depends upon being able to 
select the data relating to the specific problem or question and 
reject the rest. 

Control 

There is not automatic replacement for good manage¬ 
ment and corporate policy. The most you can expect from a 
computer auditing tool is a way to evaluate the need for policy 
changes and to evaluate the success of changes after they 
have been made. The only exception is where the policy change 
involves some type of discounting, surcharging or other billing 
technique to give end-users the choice of using prime or off- 
prime resources. This should certainly be provided by the 
system. 


Vendor Support and Response 

In areas where the needs are well defined, you can, by 
carefully choosing the product, be fairly confident that except 
for bugs and initial training, the product will do the job 
required. In the fairly new, and usually poorly defined field of 
computer auditing, after-sales support and response to prob¬ 
lems and needs is vital. This goes beyond bugs and training. 

It is in the area of strategy that the vendor can be particu¬ 
larly useful. The disadvantage of flexibility is that it is not 
always obvious how a tool can be used to solve a certain 
problem. When the software vendor has expertise in the area 
and is willing to share that expertise in a responsive manner, 
the tool can always be used most effectively. 

Specific Features 

Salesmen of all products love to extoll the various features 
of their products. What you, the buyer, must do is translate 
those features into benefits as they relate to your needs. 

One such feature’ might be the ability to rank the various 
users of your system by the number of CPU seconds that they 
have used. This may be interesting, but 1 am sure that the 
information could be compiled quickly from existing sources. 
How about ranking on something more exotic like I/Os or page 
faults? How about ranking on the ratio of page faults to CPU 
seconds? The question that you must ask is "How can I use this 
data to improve efficiency and/or make money?" If this fea¬ 
ture looks like it has definite uses fine-, if not, do not be misled 
by clever advertising. 

There are three areas that require answers from a com¬ 
puter auditing system. They are WHO. WHAT and WHEN. 
There are various combinations and permutations of these 
that give the answer to each specific question. 

For billing purposes we need to know WHO used WHAT 
WHEN. 

For performance evaluation the sequence is WHAT was 
used WHEN by WHO. 

By selecting and limiting the WHO, WHAT and WHEN and 
controlling the format of the answers all of the various fea¬ 
tures' are Important. Do not limit your thinking to "Boy, that 
would be nice to have." Continue with " If I had that and also... I 
could...” 

GETTING EVERYONE INVOLVED I 

Often the resource allocation problem is left to the compu¬ 
ter department ("They have the computer and the pro¬ 
grammers. you know! ”). While of course the computer 
department must be involved in the whole process and will get 
stuck with running the system, everyone from the financial 
people to the accounting department, to the various end-user 
groups must provide input They will get stuck with the output. 

Computer auditing is one of the applications where the 
dollar savings should be several times the cost of the system 
the first year and the savings on headaches and ulcers several 
times that. Experiences in installing tystems in the last year 
have convinced me that savings can be great and the expe¬ 
rience relatively painless (nothing involving computers is com¬ 
pletely painless). 9 
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LETTERS to the RSTS PRO . . . 

. . . continued from page 6 


Dear RSTS Pro..., 

It was aggravating! I saw a TECO truck drive by 
the other day, but I didn’t see any company name. 
However, the phonebook had one potential and 
here it is: 

Trigon Engineering Corporation 
doing maintenance on a Toll both set up. 

Sorry that the guess was so long in coming, but 
the last time I entered one of your contests you 
said, “perhaps the folks at SPU Computer Servi¬ 
ces, Seattle Pacific University, can get back to 
work!”* and when RSTS Professional speaks ... 

Mark Emerson, Analyst/Programmer 
SPU Computer Services, Seattle, WA 
*Vol. 2, No. 2, p. 31, col. 3, . . . 

Well Mark, we’re pleased to hear from you again 
and we’re also pleased to see that you’re still work¬ 
ing [5/f] at SPU. Say “Hi” for us to Mark A. and 
Tim R. and tell them that, right or wrong, we enjoy 
the time that the folks at SPU spend with us. 

Unfortunately, your TECO answer is not quite 
the one we’re after . . . READ ON. . . 


FOLLOWING ARE CORRECT ANSWERS: 


Dear RSTS Professional: 

I have learned that the answer to “TECO”, is a 
company in Ft. Wayne, Indiana. They produce the 
lifts and buckets for all kinds of utility trucks. 
Upon further investigation, 1 learned that “teco” 
does not stand for anything. 1 was told that it was 
the name of the company, and that was all. 

Sincerely, Daniel B. Wheeler 
Digital, Indianapolis, IN 
Leave it to someone from DEC to solve our TECO 
problem. Thank you, Daniel. It is interesting to 
note that after all the mystery and confusion, the 
answer is so simple. As with the editor — the word 
is fast, easy to use and extremely versatile. 

Dave and Carol, [sic] 

Since our company is an Authorized Distributor 
for DEC dealing with the Utility industry, we did 
not want an unfair advantage in your picture con¬ 
test. However, enough is enough; it’s time to put an 
end to this one and go on to something else. 

Enclosed is an ad brochure for Teco, Inc. This 
company manufactures several types of Telescop¬ 
ing Buckets and such for the Utility industry. I 
hope this is sufficient info in your quest for a cor¬ 
rect answer. A large Tee-shirt would be nice. 

Sincerely, Thomas E. Nelson 
Manager, Technical Services 
Digital Systems, Inc. 

See cover and Tom in his large Tee-shirt, 
finis 


Here, for the record, is a corrected version of 
both TTOPNF.MAC and TTDVR.TEC. 


TITLE TTOPMF#<CTRL/F OPEN FILES>^07#28*AU6~80#SPD 
; COPYRIGHT CC) 1980# 1981 

; BY SOFTWARE TECHNIQUES# INC.# LOS ALAHITOS# CA 90720 

; THIS SOFTWARE IS PROVIDED FREE OF CHARGE TO HENBERS OF THE NORTH 
; AMERICAN DECUS ORGANIZATION AND NAY BE COPIED ONLY WITH THE 
; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE# OR ANY 
; OTHER COPIES THEREOF# NAY NOT BE PROVIDED OR OTHERWISE MADE 
; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR NON-CONNERCIAL USE AND 
; TO ONE WHO AGREES TO THESE LICENSE TERNS. TITLE TO AND OWNERSHIP 
; OF THE SOFTWARE SHALL AT ALL TINES REMAIN IN SOFTWARE TECHNIQUES. 

; THIS INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY SOFTWARE 
# TECHNIQUES 


THIS SOFTWARE IS UN-RELEASED AND SOFTWARE TECHNIQUES HAS NO 
COMMITMENT TO SUPPORT IT AT THIS TIME# UNLESS STATED ELSEWHERE IN 
WRITING. 


.SBTTL SET UP WINDOW 
.ENABL LC 

POINTERS 


.DSECT #N0CREF 



FSLINK: .6LKW 

;P0INTER TO NEXT FCB THIS UNIT 


FSFID: .BLKW 

;FILE id (LINK TO NAME ENTRY) 


FSPPN: .BLKW 

;PPN OF FILE 


FSNAM: .BLKW 

;file name 


• BLKW 

;SEC0ND word file name 


.BLKW 

;extension 


FSSTAT: .BLKB 

;file status byte 


FSPROT: .BLKB 

;PR0TECTI0N code 


FSACNT: .BLKB 

;0PEN COUNT 


FSRCNT: .BLKB 

;READ REGARDLESS COUNT 


FSWFND: .BLKW 

;FBB OF FIRST WINDOW 


.BLKW 

;reserved# retrieval entry 


FSUFND: .BLKW 

;CURRENT FBB 


.BLKW 

;0F NAME entry 


FSUNT: .BLKB 

;fip unit number 


FSSIZM: .BLKB 

;FILE size MSB 


FSSIZL: .BLKW 

#‘FILE size LSB 


FSCLUS: .BLKW 

;file cluster size 


FSWCB: .BLKW 

;first wcb for this file 


.DSECT #N0CREF 



WSIDX: .BLKB 

;handler index (0>disk) 


WSSTS: .BLKB 

;STATUS flags 


WSJBNO: .BLKB 

;job a * 2 


WSFLAG: .BLKB 

W$PT: .BLKB 

;flag bits 
;pending transfers 

. continued on page 67 



CALIFORNIA 

f A A ^ COMPUTER 
GROUP 

3303 Hartxx BJvd.. Suite K-1 Costa Mesa. CA 92626 

TOLL FREE 
800 - 854-7480 

IN CALIF: (714) 966-1661 


□ Half Price □ Double the Speed 

□ 8 times more efficient □ 1/8 the size 

CCG will replace your used DH11 for the 
new Emulex CS11* - FREE OF CHARGE 

LSI-11 QBUS MAGIC 

• 8S— 8 line DLV11-J 
on one dual card. 


• 2SPBT— 2 serial 

1 parallel bootstrap 
and terminator on 
one dual card. 

• LP-SHARE allows up 
to 64 LSI-11 to share 
the same printer. 


ALSO AVAILABLE DEC 10 ft DEC 20 
COMPATIBLE MEMORY 


64 LINE ASYNC MIX 
ON ONE HEX BOARD 
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DIRECT.TEC 

By David Spencer 


DIRECT.TEC was born when I began investigating the 
TECO operator ' EN '. I had never used it before and needed 
some application to help discover the kinks. What I finally 
arrived at was a simple directory program. I then put it away 
and went on to other things. With the arrival of version seven 
of RSTS. I returned to my little macro and expanded it to make 
use of the new FIP PPn wildcards. 

Running DIRECT.TEC 

The DIRECT.TEC program makes use ONLY of the "EN" 
verb. The directories contain less information than a program 
that utilizes "SYS()" calls (or TECO :EG support). "EN" returns 
only file specification and protection code. 

The information passed to DIRECT.TEC must be a single 
file specification without switches. Such specs as "SY:" or 
"[1.2].BAK" which are not completed with the asterisks are 
allowable, however. If no specification is supplied, then a direc¬ 
tory of the current account on the system disk is performed. 

The macro itself uses numeric registers zero through six. 
However, it pushes and pops them so that no data stored in 
those registers is lost. When running DIRECT.TEC while in 
TECO. it is VERY important to remember that the macro 
assumes the file spec to be the complete contents of the text 
buffer. The result is that the directory will be attempted to be 
taken on your text file if you haven't done an "EC ". Also, after 
DIRECT.TEC has completed, the text buffer will be cleared. 
Beware! 

There are three regular ways to invoke DIRECT.TEC: by 
CCL outside of TECO. by "El " within TECO. and loading the 
macro into a register and executing it. The CCL for DIRECT.TEC 
is "FILES". (This of course can be changed.) If in TECO and you 
want to do a directory, then clear the text buffer area, insert 
your file specification, and "El" DIRECT.TEC or load DIRECT.TEC 
into a register and execute that register name. 

What you get. 

The directory returned looks a lot like the directory 
returned by PIP or DIRECT.BAS. The difference is, of course, 
you get only the disK account, file name and extension, and 
protection code. Unfortunately "EN " does not return file sizes, 
dates, or times. There is a nice summary at the bottom, and if 
there was a PPn wildcard, a grand total of all files and accounts 
listed. 

Why bother? 

Why even write a directory program in TECO? The reasons 
are not overwhelming. About the only time I ever wind up using 
it is to impress someone, or. when the system is slow, avoid 


having to exit TECO and then re-load everything. 

There has been an interesting fact revealed from my 
exploration of the "EN" verb. I'll call this one "The Case of the 
Missed Edit". This anomaly was uncovered when I was "mass 
editing" a series of files using a macro that had a wildcard "EN" 
in it. I had opened my file with "EB" and allowed TECO to create 
a ".BAK" file for me. I would then make the changes (by macro) 
and get the next file. This would continue until I was out of files 
to edit. 

The problem occurred that 1 wound up editing EVERY 
OTHER file, and some files got edited TWICE! The reason was 
this: "EN" returns the "nth" file number, where "n" is the 
number of times that "EN" is executed. The trouble was after 
the first "EN ". This causes the next "EN " to get the second file 
in the directory matching the wildcard. But the first file was 
edited and the old version renamed to “. BAK". Thus the second 
file in the directory by that wildcard became the first to match. 
So therefore, every other file would be missed, and some would 
be mistakenly edited twice from the end of the directory 
because their name still matches the wildcard. 

The moral of this story is to always output to a different 
extension when doing wildcard edits. 1 hope this little headache 
of mine won't be repeated by those who have read this and not 
yet explored the mysteries of "EN". 

Closing Notes 

As with all TECO code, DIRECT.TEC isjust a base program. 

1 hope that, as Carl Sagan would say. billions and billions of little 


macros evolve from this humble beginning. Enjoy! 

i 

1 

1 

DIRECT .TEC 

1 

1 

1 

1 

Siapla diractory prograa 

1 

I 

1 

1 

Author! David Spancar 

1 

I 

1 1 

1 • 

1 Thia 

1 

routlna uaaa tha following raglstarai 

1 

i 09 

Scratch, diractory aacro 

1 

I 0% 

Scratch, flla count 

1 

1 19 

Scratch, coaplata wllcard apac 

1 

1 1% 

•CCL antry" flag 

1 

1 29 

Oanarata haadlng aacro 

1 

1 2% 

Old PPn In Hat 

1 

1 39 

Print an account total 

1 

1 3% 

Maw PPn In Hat 

1 

1 49 

Laat flla llatad 

1 

1 4 % 

•Grand* total of fllaa 

1 

I 59 

<cr> <lf> coablnatlon 

1 

1 5% 

Muabar of acoounta llatad 

! 

1 69 

•MOT UTILIIED* 

1 

1 6% 

Total typa flag 

1 

« 1 


I DIRECT.TEC !■ a TECO pxxxjrmm written to taka 
I dlractorlaa of BSTS/E diaka uaing only tha 
I normal "EN* aupport. It auat ba notad that 
I tha currant varalon REQUIRES that tha buffar 
1 ba claar of all data axcapt tha fila apac 
1 to ba uaad for tha diractory. Failura to 
1 claar tha buffar bafora axacutlng DIRECT will 
I cartainly raault in tha loas of momm data. 

I 
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AARDVARK SOFTWARE 
introduces the com p lete 
UCSD PASCAL system 
available under RSTS/E 
for the PDF^II family. 

Not merely a compiler! 


This system was designed to facilitate software 
development and create an ideal Pascal teaching 
environment. Designed and developed by 
John Hayward, Ph.D. of Wheaton College, 
Wheaton, Illinois. 


ADVANTAGES 

*Based on enhanced UCSD PASCAL, utilizing: 

• long integers 

• strings 

• segmented procedures 
^Simplified user interface—automatic linking 
*Powerful screen editor 

*Compatible with UCSD microcomputer systems 
*Supports “random access” of files 
*lncludes Assembler 


Price: $995 


Write us, or call toll free for information: 1 -800-558-1538 

AARCJNiSaRK SOFTWARE IIMC. 

783 North Water Street 
Milwaukee, Wisconsin 53202 

UCSD PASCAL is a trademark of the Regents of the University of California. 

PDP-11 and RSTS/E are trademarks of the Digital Equipment Corporation. 
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1 Due only tbe Haltationti of the data I 

i returned from the "EN* operator* DIRECT does I 

I a brief directory of only fllenaae and 1 

1 protection code. Also* If the terainal Is a | 

1 scope* then DIRECT clears the screen before I 

1 prlntlntj the directory. I 

1 I 

t If DIJIECT Is running on version 7 of RSTS* I 

1 you will find DIRECT will handle multiple I 

1 accounts that occur with wildcard PPns. I 

I I 

! DIRECT nay be executed In one of three ways! 1 

1 1 

I 1. Via the CCL -FILES- I 

1 ! 

12. By loading the file specification Into I 

1 the text buffer and -El DIRECT* 1 

1 ! 

1 3. Loading the macro Into a register and I 

I executing It with an -Hreg-nane-. 1 

I Set radix declawl* set counters I 

OD (0 [1 [2 [3 (4 [5 (6 OUl 0U4 1U5 J 0X0 

I Load Q5s with carriage-return* line-feed 1 

aou5% 

\ 


1 Load heading display macro 1 

9C)U2% 

91/ Name .Ext Protect / G* 9-3/)/ K G5 HT HK 
% 

1 Load total display macro 1 

90U3% 

06 t Get passed number 1 

91/ 

Total of / Q0\ 91/ file/ 00-1-N al/s/ * 91/ In / 
Q 6 -- G1 1 G4 9-3/]/ K * G5 HT HX 
% 

1 Remove possible CCL command 1 

M93/FILES/-S OSD -101 * 

I Remove all spaces* tabs 1 

< 93/OES/f OSD > 


I Insert file argument If none found 
X*B 91 /*.•/ • 

1 Do some PPn work 
J »93/(/-S -D 91/1/ • 

J i93/)/*S -D 91/1/ • 

1 Strip off logical PPn's 
9O01/si%699/ 

19 S/OEGI/-S .-1,.X0 -D • 

I Strip PPn so we can massage fllspec 
J t9S/[/-S R .00 93 /)/ Q0..X0 QO-.D * 

1 Check for missing file specification 
J t93/l/-E 91/3X1/ • 1193/./ -S R 91/*/ * 

1 Check for missing extentlon 
J 193 /./•£ XL 91 /.•/ 1 .-X*E 91 /*/ • • 

I Re-lnmart the PPn 
J 93 / 1 / GO 

! Create EH command for directory search 
J 91/01/ IJ 9271// 

1 Execute BN to expand fllesxMC 
UXl HX HI G* 


•E 91/*/ ' 


1 Insert our PPn If one not found In spec | 

J I93/(/*E I93/*/-S 9l/(/ 2EJ/256\ 9 I/*/ 2EJ6255\ 9 I/J/ * 


1 Fix PPn wildcards 
J I93/C/-3 \-255-- OSD 91/*/ * * 

J 193 /*/-S \-255-- OSD 91/*/ • • 

1 Retrelve the full fllespec for display 
HXl HX 


I Mow create a macro to do the directory I 

919 

19 EM//-- G5 9 l/%Mo files matctilng specification / G1 G5 90/EMD/ 


... continued on page 94 



From $750 


DATA ENTRY/INQUIRY POWER 


MULTI-USER DATA ENTRY 

• Create, modify or verify 
data files 

• Extensive field editing 

• User friendly design 

• Extracts ISAM file data 

POWERFUL FEATURES 

• Dictionary-driven 

• Full logic support 

• CRT features supported 
blink, bold, underline, 
reverse video & cursor 


ON-LINE INQUIRY 

• Inquiry and/or update 
for ISAM files 

• Multiple ISAM files 

• User access control 

• Browse feature 

DEC INTERFACE 

• RSTS/E, RSX11M, RT11 

• RMS1 IK with secondary 
index support 

• Optional support for 
resident libraries 


RESULTS 

• Increased productivity 

• Macro-coded - FAST!!! 

• Single D EUS program 
replaces user data entry 
inquiry programs 

STRATEGIC DATA SYSTEMS 


4N310 Knoll Creek Drive 
St. Charles, IL 60174 
(312) 377-3396 
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WORD PROCESSING 



PDP-11 AND VAX 


MULTI-USER 

Written entirely in MACRO-11 machine language, you can 
have up to 90 people using the full power of WS-11 word 
processing simultaneously without impairing the perfor¬ 
mance of data processing. 


FROM PDTTO VAX 

WS-11 can be used on the full PDP-11 family using its own 
operating system, RSTS/E, CTS-500, RSX-llM or 
VAX/VMS. Transition from one system to another can be 
made without any change to your documents. 


EASY TO USE 

Color coded commands are clearly labeled on the keyboard. 
Menus display all choices on the screen. No technical 
language or cryptic commands to remember. The screen 
immediately shows all changes you make to your 
document. No surprises. 


POWERFUL FEATURES 

Just a sample: Right margin justification. Centering, Search 
and replace, Libraries of stored text, Simultaneous editing 
and printing. Support for a wide range of printers including 
Xerox, NEC, Qume, Sanders and DEC. 


$ 2000-$3500 


WS-11 



COMPU-TOME. INC. 

668 S. Sunset Avenue 
West Covina, CA 91790 
(213) 960-2895 
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DECUS UK 
1981 CONFERENCE 

By Pauline Noakes, U.K. Correspondent 


The DECUS UK Conference is an annual 4-day event held at 
a different University Campus each Spring. This year it was the 
turn of Warwick University in the Midlands to provide the 
venue, and 400-plus delegates poured in from all over Britain, 
together with the much-sought-after DEC speakers from the 
Digital development teams in the USA and a number of DEC 
personnel from the UK Education Services. Sales, Field Service, 
etc. divisions. 

The site itself is a vast complex of lecture theatres, library, 
laboratories, residences, etc. which normally houses 3000 stu¬ 
dents. Therefore, accommodations here allowed all the atten¬ 
dees to stay on the site without the inconvenience and tedium 
of daily bus rides to and from the sessions. 

Conference proceedings officially commenced at Monday 
lunchtime, enabling most of the delegates to travel from home 
on Monday morning. There were, however, two extra semi¬ 
nars, on real-time systems design and data communications, 
held on Monday morning for those who wished to spend a little 
extra time and money at Warwick and consequently the influx 
of computer addicts started on Sunday. 

After the traditional New Participants session and a DEC 
"New Products" session, SIC sessions began in earnest with all 
the roadmaps held on Monday evening. 

For the RSTS/E group, the centre of interest was the 
sessions given by Jim Condict from the RSTS development 
team in Merrimac. Jim's first session outlined the development 
of the RSTS Monitor through the various releases and 
explained the way in which the current version works. He also 
spent some time in talking about the now famous "small buffer 
problem ", why it exists and what work is being done to try to 
improve the situation. This session in particular was very well 


DEC best values 

PRE-OWNED DEC EQUIPMENT 

BUYING AND SELLING 

SYSTEMS • CPU's • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 


CALL DICK BAKER (305) 561-5207 

dataware 

^ incorpcxated 

Intracoastal Building 

3COO NE 30th Place 

Fort Lauderdale, Florida 33306 

Teleptx^ne (305) 561-5207 ^ 


i 


i 


Peter Dick 
examines GIGl 
at Warwick 

received as it cleared up some of the mysteries of life for the 
everyday RSTS user and provided food for thought for even the 
■ RSTS hackers" in the audience! 

The other two presentations by Jim Condict were (a) 
Terminal Service Internals and (b) Writing run-time systems 
and resident libraries for RSTS/E. both of which also attracted 
large audiences which packed the lecture theatre. 

Contributions to the wish-list were discussed in a 
session which ran for an hour longer than scheduled and 
produced plenty of ideas for the RSTS developers to 
ponder over! 

The exhibition hall was well attended at all times, 
with most interest being shown in the colour graphics on 
GIGI terminals and also in the VAX11/750 system. A 
competition was held to win a GIGI, the runner-up prize 
being the chance to buy a GIGI at half-price!! The accent 
on graphics was continued with the Conference Tutorial, 
an excellent presentation entitled “From today photo¬ 
graphy is dead", an entertaining demonstration of the 
impact of computing on graphics. 

All in all. an excellent 4 days! Thanks to all those 
involved in organisation, to those who gave their time to 
prepare and present sessions and, of course, to DEC for 
all their co-operation in making the event a success, 
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HAD 

ENOUGH? 

Outrageous Prices? 

Impossible Lead Times? 

Littie Or No After Saie Support? 



Compumation, the nanne that is 
quickly becoming synonymous 
with reliability & quality, now offers 
a complete line of D.E.C. compat¬ 
ible system enhancements. 

The newest members of our line 
are our new Comp-DK & Comp- 
DF Backplanes, which are DD11 - 
DK and DD11-DF equivalents, 
and our Comp-CK & Comp-CF 
which are DD11 -CK and DD11 - 
CF equivalents. Our lead time is 
typically 30-45 days. ARO. 
SUPPORT? We offer the finest, 
over the phone or on site. 


coiiipumACion 

Call us. When you’ve had enough. 

2326 Walsh Ave. Santa Clara CA 95051 
(408) 988-8600 


D.E.C. is a registered trademark of Digital Equipment Corp. 
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JBSTAT 

By Francois Dubois, The City of Longueuil, Quebec, Canada 


1. ABSTRACT 


4, HOW JBSTAT WORKS 


JBSTAT is a program which allows you to display the 
job status and open channel information for any job on a 
RSTS/E large file system. It is most useful to the system 
manager because it permits him to see what is going on 
with a job at any time. The programmers can use it for de¬ 
bugging purposes, 

JBSTAT is written in Basic-Plus-2 and works on RSTS/E 
V7.0 "large files” system only. 


2, OPERATION 

Type in : 

RUN (?.?)JBSTAT 
or use the following CCL: 

CCL J-BSTAT = (?,?)JBSTAT.TSK:PRIV 31500 
Note: LOGIN can be modified to chain to line 32000, 

JBSTAT then asks for the job number (or KB number) 
followed by one or many options. 

Examples: 

A) J/5-:R4:C4:C12 

J CCL FOR JBSTAT 

/ OR ” NEEDED IF OPTIONS SPECIFIED 

5 INFORMATION ON JOB »5 

DON’T DISPLAY THE STATUS OF JOB 5 
CAN APPEAR ANYWHERE AFTER ”/" 
USE TO SEPARATE SWITCHES 
R4 REFRESH DISPLAY EVERY 4 SECONDS 

C4 DISPLAY INFORMATION FOR CHANNEL ^4 

Cl2 DISPLAY INFORMATION FOR CHANNEL *^12 


After entering the job number (or KB ^), JBSTAT first 
finds out if that job is active on the system. It does that by 
examining the job table. A 0 (zero) entry in the job table 
means an inactive job. A non-zero value is a pointer to the 
job data block for that job. -1 indicates the end of the job 
table. 

If the job is found active, it will display the status like 
SYSTAT would do (except for the CPU time). 

Then it peeks through the I/O block (pointed to be the 
first word of the JDB) for that job examining which channel 
is opened. The I/O block is 16 words long (one word per 
channel). Each word is a pointer to either a DDB (Device Data 
Block) or a WCB (Window Control Block). A zero value in¬ 
dicates that the channel is closed. 

The first byte of a DDB or WCB is called the driver index 
and it’s value determines which device is opened on that 
channel. A value of 0 indicates a disk device, 2 indicates a 
keyboard, etc,., Also, if the driver index is zero, we are look¬ 
ing at a WCB, otherwise it is a DDB. The WCB is connected to 
the FCB by a pointer, stored in the fifth word of the WCB, 
which points to the file clustersize stored in the fifteenth 
word of the FCB (address of FCB -i- 34 octal). 

Once JBSTAT reaches that point it is easy for it to ex¬ 
tract from the DDB or the WCB and the FCB all the desired 
information. 

NOTE: JBSTAT can easily be modified to display more infor¬ 
mation from the DDB, WCB or FCB. 


5. DISPLAY 


B) J/12:S Refer to line 100 of the program for a complete descrlp- 

S DISPLAY ONLY THE STATUS FOR JOB ^ion of the display. Refer to step for examples. 

Refer to line 100 of the program to see other examples on 
how to use the switches. 

6. NOTE 


3. MONITOR TABLES 

Some monitor tables are described below to help you 
understand how JBSTAT gets to the desired information. 
Please refer to these while reading step *4. 

The design of these tables come from the under¬ 
standing of the SYSTAT program (which is well docu¬ 
mented) and the reading of the TTDVR.LST file generated at 
SYSGEN time. That file contains a complete terminal DDB 
layout. Also, by studying the " t R and t T handlers" code, 
one can understand how to get at the data stored in the key¬ 
board's buffer and display it (JBSTAT displays the data in 
the KB's buffer and the typed ahead data, if any, for key¬ 
boards opened in mode 8). 


If you find any bugs in this program, please contact me. 
To receive this program on a 9-track (800 BPI or 1600 BPI) 
tape send a $30.00 U.S. Money Order payable to: The City of 
Longueuil. 

Francois Dubois 
The City of Longueuil 
C.P. 5000 
Longueuil, Quebec 
Canada 
J4K 4Y7 

Tel: (514) 670-2220 


7. EXAMPLES 
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RSTS V7.0-07 LONGUEUIL JBSTAT 07-Apr-81 13:58 


Job 


Who 

Where What 

Size 

State 

Rts 

Prio/Brst 


16 

[ 

1,105] KB19 DUMPTO 

16/31K 

DB 

BASIC 

-8/6 


Chn 

Dev 

PPn 

File Name Size 

Flags 

Prot Clu 

Op/Rr 

User 

Block 

1. 

MNO:Density: 

1600 BPI, Status: 

Write 

End-of-File 




2. 

DB0:[ 

95,1 

)DSD14B.TSK 35 

C 

<124> 4 

0/1 

RdRr 

35 

3. 

DBO: [ 

1,105JBAC953.LST 7 


< 60> 4 

1/0 

RdWr 

7 

11 . 

DBO: [ 

1,105]DUMP16.TMP 1 

D 

< 60> 4 

1/0 

RdWr 

1 


12. NL: 


RSTS V7.0-07 LONGUEUIL JBSTAT 07-Apr--81 14:01 
Job Who Where What Size State 

14 [ 75,91 ] KB17 IPAOOl 15/31K RN 

Chn Dev PPn File Name Size Flagti Prot Clu 

1. DBl:[ 75,2 JFPAMAS.IND 3696 U < 42> 128 

2. KB17:Mocie: CrLf Echo Field: Kpch 0 DH11[12] 

Type ahead: f<cr><cr>duboitf franco!tf<cr>t 
4. DBl:[ 75,2 ]FPAREF.IND 82 U < 42> 4 

15. DB0:[ 75,1 ]IPA001.TSK 58 C <232> 4 


RSTS V7.0-07 LONGUEUIL JBSTAT 07-Apr-81 14:18 


Job 


Wbo 

Where What 

Size 

state 

4 

[ 

1,3 

] Det 

SPLRUN 

16/31K 

SL 


Chn 

Dev 

PPn 

File 

Name Size Flags 

Prot 

Clu 

1. 

DBO: [ 

1,3 

]SPL004 

.WRK 

9 < 

60> 

4 

2. 

LPO: 

Stratus t 

Hung 





3. 

NL: 







4. 

DBO: [ 

1,3 

]CHARS 

.QUE 

2 < 

60> 

4 


RSTS V7.0-07 LONGUEUIL JBSTAT 07-Apr-81 14:25 
Job Who Where What Size State 

18 KBll LOGIN 14/31K KB 

Chn Dev PPn File Name Size Flag^ Prot Clu 
1. KBll:DH11[6JStatus: Noecho 


Rts Prio/Brst 

. ..RSX 1/12 


Op/Rr 

User 

Block 

1/0 

RdWrCaUp 

373 

1/0 

RdWrCaUp 

13 

0/1 

RdRr 

38 


Rts 

Prio/Brst 


BASIC 

-8/6 


Op/Rr 

User 

Block 

1/0 

RdWr 

5 

1/0 

Rd 

0 


Rts Prio/Brst 

...RSX 0/6 

Op/Rr User Block 
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SOME MONITOR TABLES 


JOB TABLE 


JOB DATA BLOCK 


I/O BLOCK 


: 0 

• .-> 

POINTER TO lOB 0 

— 

— > 

““““ " “S 

CHAN. iO 0 

: POINTER TO JDB 2 

. 

JDFLG 2 

--- -- m ________ 

4 


— — — — 

CHAN. *1 2 

. . 

: 4 



• 

4 



CHAN. #2 4 

: 6 



• 

6 



CHAN. *3 6 

. . 

: 10 

i 

» *** 

m 

JDJDB2 10 

* 



. 

CHAN. »4 10 

\ \ 

> 

. 

^ ' 


> 

^ \ 

/ > 

f 

> 

-- - - -- • — ---— 

f 

s 

f / 

—- -- 

: -1 



• 



• 

CHAN. «15 36 

. " . 

JOB DATA BLOCK 2 

. . 4 



WCB 



“ - — — 2 ——— 

KB DDB 


\ 

/ 


0 :<—• 
• 

\ 

/ 


J2NAME 


14: 

16: 


\ 

/ 




\ 

/ 


\ 

/ 

—: 
30: 
—: 
\ 
/ 

—: 


STS FLG : IDX 

“ “ -—-I 

FLG BITS:JB i *2 


-> FOB @ CLUS 


NXT WCB->FCB -►FLG 


<-• 


\ 

/ 


\ 

/ 


FOB 


\ 

/ 


0 : : 

• 

\ 

/ 


CLUSTER 


SIZE 34 
FIRST WCB 36 




STATUS : IDX 0 
DV UNITitJB #*2 2 

4 

6 

FLAGS 10 

OUT BUF. EP 12 

“ - - - — • ^ 

OUT BUF. FP 14 

-_ _ • -_ 

OUT BUF. COUNT 16 
: 20 

IN BUF. EP 22 

■ . _ _ -n-. - _ 

. 

IN BUF. FP 24 

- • - 

IN BUF. COUNT 26 

I — - - ^ ----- 

: 30 

j — 

: MODE 32 

• — — - — ■ 

CHARACTERISTICS34 

— - —- • ---- 

INTERFACE FLAG 36 

- -- - .-.-.- r mm 

ECHO EP (AHEAD)40 
-^ •- 

ECHO FP (AHEAD)42 
* “ “ “ • ^ 

ECHO BC (AHEAD)44 

PAINT CHtFLD MD46 


POINTER 

TO 

USER'S 
KB DDB 
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The Supermarket ef Computer Products 

PRESENTS 

Disk Sub Systems Ala Carte 


DEC, DATA GENERAL and others 

For LSnif PDPIlf PDP11/70f 
VAXf UNIBUSf & MASSBUSf 

*Tradenames of Digital Equipment Corp. 

Featuring: 

. CONTROL DATA'S 

SMD,CMD, MMD, FMD, 

HAWK, LARK, PRINTERS, 

TAPE DRIVES & MEMORIES 

• KENNEDY'S 

WINCHESTERS 
&TAPE DRIVES 

• DATA PRODUCT'S 

PRINTERS 

• CENTURY DATA'S 

TRIDENTS 

Plus a Menu of CONTROLLERS: 

• EMULEX • SYSTEM INDUSTRIES 

• WESTERN PERIPHERALS 

• DILOG • BYTRONIX • RIANDA 

• MCT • DIGIDYNE 



ONLY GF OFFERS THIS 
UNIQUE COMBINATION: 

CUSTOM-TAILORED TO YOUR EXACT 
REOUIREMENTS 
FULL EMULATION 
COST SAVINGS OF 50% 

FAST DELIVERY 

EXPERT INSTALLATION & SERVICE 
OEM DISCOUNTS AVAILABLE 


And these other GF products: Printers & Subsystems; Tape Drives & Subsystems; Computers, Memories and Controllers; 
CRTs, Terminals & Media; Turnkey Business Systems; Software (Operating & Application) 


GEORGE FOLDVARY & ASSOCIATES, INC. 
400 S. Beverly Drive, Suite 310, Beverly Hills, CA. 90212 
(213)551-2840 • TWX 910-490-2511 




GF: I am interested in: 

□ Printers □ Tapes 

□ Controllers □ CRTs 

□ Memories □ Media 


I am an: 

□ End user 

□ Institutional 

□ OEM 


Name 
Title . 


My requirements are: 

□ Immediate □ 3-6 months □ Information only 

My computer is a _ 


Company . 
Address _ 
City_ 


. State. 


Zip 


Telephone 
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WCB 

WINDOW CONTi^OL BLOCK 


FCB 

FILE CONTROL BLOCK 


WSSTS 1 

STATUS FLAGS 

NSIDX 0 

0 FOE DISK 

W8FLAG 3 

WSJ3N0 2 

FLAG BITS 

JOB # • 2 

WSNVBM 5 

WSPT 4 

NEXT VBN (MSB) 

PENDING XFEES 


WSNVBL 6 

NEXT VBN (LSB) 


W$FCB 10 

-> FCB @ F8CLUS 

WSREN 12 

RETRIEVAL ENTRY NUMBER 


W$WCB 14 

-> NEXT WCB THIS FCB ^ FLAGS 


WSNXT 16 

FBB OF NEXT 

WINDOW 


W$WND 22 


W 


24 


I 


26 


N 


30 


D 


32 


0 


34 


W 


36 


POINTER 

FSLINK 0 

TO NEXT FCB THIS UNIT 

FILE ID 

FSFID 

(LINK TO NAME 

2 

ENTRY) 


F9PPN 

PPN OF FILE 

4 


F9NAM 

6 





lo: 

FILE NAME EXTENSION : 


12 


FSPEOT 15 
PEOT. CODE 

FSSTAT 14 
STATUS BYTE 

F9RCNT 

17 


F9ACNT 

16 

R/R OPEN COUNT 


OPEN COUNT 


FSV 

^FND 

20 

FBB OF 

FIRST 


RETRIEVAL 

ENTRY 

22 


F9UFND 

24 


FBB 



OF 

NAME 

ENTRY 

26 

F93IZM 

31 


F9UNT 

30 

FILE SIZE MSB 


FIP UNIT 

« 


F3SIZL 32: 

FILE SIZE LSB : 

-: 

F9CLUS 34: 

CLUSTER SIZE : 

F9WCB 36: 

-> FIRST WCB FOR THIS FILE : 


BITS IN FSSTAT OF FCB 


7 6 


5 4 3 2 1 0 


_ • ______ • ______ • ______ 

• • • • • — ———— ^ • 

US.DEL: JS.UFDXUS.NOK: OS .NOX : US . UFD: US. WxJT : US .PLC: US .OUT 
MAEKEDIFILE :DO NOT:CONTIGXOPBN :WBITE :FILE :OUT OF 
DELETEtlS UFDXKILL :FILE ;UPDATE:GIVEN xPLACEDtSAT 
— * ______ • ______• ______ •___ _ •___ ___ •_ _____ • ______ 
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BITS IN ODSTS OF WCB 

15 14 13 12 11 10 9 8 

--.-:-:-:-:-:-:- 

;wcsusE:wcsaFD:'WCSLCKswcscTG:wcsaPD:DDWLO :ddnlo :ddnfs 
tWRiTE :FILB ILOCK :CONTIG:UPDATE:WRITE :READ :N.F.S. 

;pRlVS :IS UFD:IS ON tFILE :MODE :LOCK :LOCK ; 

.-j-.-j-:-;-:-!- 


BITS IN WSFLAG OF WCB 


15 14 13 12 11 10 9 8 


WCS NFC:WCS DLW:WCSEXT 
NFS BY:FIX 3Z:EXTN'D 
CLUSTRtfi DATE:WCB 


WCS LUC 

LENGTH OF CURRENT 
IMPLICIT LOCK 


BITS IN W$WCB OF vICB 


BITS IN v^$WCB OF WCB (CONTINUED) 


15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 


0 


ADDRESS OF NEXT WCB 


WCSCSQ:WCSCHE:WCSAEX:WCSSPU:WCSRR 
SEQ'L :USER :always:SPEC*L:READ 
CACHE rCACHE :EXTEND:UPDATE:RDRGLS 


THE ADDRESSES GIVEN BELOW AfiE OCTAL NUNBEfiS 


JOB TABLE 


JOB DATA BLOCK 


2 (JDFLO) 

10 (JDJDB2) 


I/O BLOCK 


0 

2 TO 36 


14 (J2NAME) 
16 

30 (J2PPM) 
WCB 


0 

1 

2 

10 

14 


0 

4 

6 

8 

10 

14 

15 

16 
17 

30 

31 

32 
34 
36 


POINTER TO JOB DATA BLOCK FOR EACH JOB 
A POINTER VALUE OF -1 INDICATES THE END OF JOB TABLE 


POINTER TO I/O BLOCK 
JOB STATUS FLAGS 

POINTER TO JOB DATA BLOCK EXTENSION 


POINTER TO USER'S KB DDB 

POINTER TO EITHER A DDB. SCB OR WCB 


JOB DATA BLOCK 2 


FIRST 3 CHARACTERS OF JOB NAME (RAD50) 
LAST 3 CHARACTERS OF JOB NAME (RAD50) 
ACCOUNT NUMBER 


DRIVER INDEX 
STATUS BITS FOR FILE 
JOB NUMBER * 2 

POINTER TO FILE CLUSTERSIZE STORED IN FCB 
POINTER TO THE NEXT WCB FOR THIS FILE AND 
OTHER FLAGS 


POINTER TO THE NEXT FCB FOR THIS UNIT 
ACCOUNT NUMBER OF FILE 

FIRST 3 CHARACTERS OF FILE NAME (RAD50) 

LAST 3 CHARACTERS OF FILE NAME (RADSO) 

EXTENSION (RADSO) 

STATUS BYTE 
PROTECTION CODE 

NUMBER OF TIMES THIS FILE IS OPEN (MOT REGARDLESS) 
NUMBER OF TIMES THIS FILE IS OPEN READ REGARDLESS 
FIP UNIT NUMBER 
FILE SIZE (MSB) 

FILE SIZE (LSB) 

FILE CLUSTERSIZE 

POINTER TO FIRST WCB FOR THIS FILE 


DKSiopII.VAX 

The 

pro¥^ 


Productivity 

Tooi 

• For DEC 11 and VAX (Native Mode Tool) 

• In Use For 10 Years... 140 Sites Installed. 

• Technology Leader in Data Base Systems. 


r 


Call For A FREE 

BRIEFING MANUAL 


( 617 ) 437-7600 


J 


AMERICAN USED SOFTWARE COMPANY 

P.O. Box 68, Kenmore Station, Boston, MA 02215 

DRS is a product of Advanced Data Management. 






























AmCAfllNS SGiUE IN YOU 
MOOR JiniH IISERfl. 


USER-Il is a comprehensive 
applications development 
facility for the DEC RSTS 
operating environment. 
Dozens of integrated 
programs harness RSTS’s 
power for unparalleled 
productivity and performance 
in constructing on-line and 
batch application systems. 

PRODUCTIVITY... 

A MATTER OF TIME. 
More than a data manage¬ 
ment system, USER-11 
features common-function 
programs that permit 
numerous applications to be 
installed without writing a 
single line of code. Complete 
building blocks and interfaces 
are provided for those 
remaining applications 
requiring custom work. 


RELIABILITY... 

A PROVEN FACT. 

USER-11 is currently 
installed on hundreds of time¬ 
sharing systems world-wide 
with a reliability record that 
users repeatedly praise. All 
software is exhaustively 
tested and benchmarked prior 
to any distribution release. 

SECURITY... 

MORE THAN RSTS. 

USER-11 incorporates a 
unique MENU system which 
flexibly and securely controls 
all processes. Secondary, 
encoded security databases 
are provided for each project. 
A special Run Time System is 
invoked to prevent accessing 
the RSTS ready state, unless 
the software developer 
desires this for the user. 


PERFORMANCE... 
SIMPLY INCREDIBLE. 

USER-11 combines 
advanced BASIC and 
MACRO coding techniques 
with ultra-efficient file 
accessing mechanisms to 
optimize application system 
performance. 


STANDARDIZATION... 

A BYPRODUCT. 

All USER-11 generated 
packages employ program-” 
ming and documentation 
conventions which enhance 
compatibility, readability, 
and maintainability. 

ADAPTABILITY... 

NO PROBLEM. 

USER-11 programs are 
dictionary and parameter 
driven throughout. Files can 
be restructured without 
program modifications. 


DOCUMENTATION... 

GOOD AND PLENTIFUL. 
USER-11 features a wealth of 
easy-to-follow documen¬ 
tation. An extensive on-line 
“/HELP” facility is at 
software developer and user 
fingertips. All documentation 
is maintained and distributed 
on your system’s compatible 
media. 

TRAINING...ALL KINDS. 

USER-11 training courses are 
held frequently with instruc¬ 
tional programs to suit your 
need—beginner to expert. 

FEATURES...ON AND ON. 
USER-11 includes virtually 
every facility needed to 
quickly construct high 
performance management 
applications—nothing else is 
required. If you find this hard 
to believe or would like more 
information, contact us; we 
will furnish you with solid 
user proof! 

(I iNlClClSl 11 


amoscDB 


ir MiiiiM ]i 

North County 
Computer Services, Inc. 

2235 Meyers Ave. 

Escondido, California 92025 
(714) 745-6006, Telex: 182773 

DEC and RSTS are registered trade¬ 
marks of Digital Equipment Corporation. 


(c^ Copyright NCCS 
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KB DDB 


0 

1 

2 

3 

10 

12 

14 

16 

22 

24 

26 

32 

34 

36 

40 

42 

44 

46 

47 


DRIVES INDEX 
STATUS BYTE 
OWNER JOB NUMBER *2 
DEVICE UNIT NUMBER 
FLAGS 

EMPTY POINTER FOR OUTPUT 
FILL POINTER FOR OUTPUT 
BUFFER COUNT FOR OUTPUT 
EMPTY POINTER FOR INPUT 
FILL POINTER FOR INPUT 
BUFFER COUNT FOR INPUT 
OPEN MODE FOR KB 
TERMINAL'S CHARACTERISTICS 
INTERFACE FLAG 

EMPTY POINTER FOR TYPE AHEAD (ECHO CONTROL) 
FILL POINTER FOR TYPE AHEAD (^CHO CONTROL) 
BUFFER COUNT FOR TYPE AHEAD (ECHO CONTROL) 
ECHO CONTROL FIELD SIZE AND NODE 
PAINT CHARACTER AND FIELD ACTIVE FLAG 


32768 32 

I • * • I 


->CONTROL/S (STATE) 


-> NOT ECHOING 


FIO-3 (FLAGS IN IB DDB) 


FIG-4 

FIG-5 

FIG-6 

FIG-6 


»-1-1- 


I-<-1-1 


128 64 32 16 8 4 2 1 

t-1-1-1-1-1-1-1-1-1 


-t -1-1 — 


I I 




SPECIAL SCOPE RUBOUT <• 
RESERVED << 
ENABLES INOOHIMG XON/XOFF <• 
GUARDED TERMINAL NODS <’ 
ECHO CONTROL NODE <• 
NO AUTO Cfi/LF NODE <• 
TBCO MODE <■ 
BINARY NODE <• 


I t I I t 
I t t t I 
* t t I I 
-* t t t 

- • , 


t 

I 


FIO-4 (OPEN MODE FOR IB IN KB DDB) 


2048 256 

I * • I I 


•-> TEMPORARY PRIVILEGES POSSIBLE 



20 10 

48 24 512 256 128 64 32 16 8 4 2 1 

• • • *1* • * • * • • • 



-1-1- 





t I 

SUB-LINE NUMBER INTERFACE TYPE CODEI 


-> TEMPORARY PRIVILEGES ACTIVE 

FIG-1 (JOB STATUS FLAGS IN JDB) 


0 KLll 
2 DCll 
4 DLll 
6 DEll 
8 Pill 
10 DJll 
12 DHll 
14 DZll 


FIO-5 (INTERFACE FLAG IN KB DDB) 


3276 8 

: • 

I-1 — 



: s 

>C0NTR0L/0 STATE (FOR KEYBOARD) 

PRINTER HUNG (FOR PRINTER ) 

FIG-2 (STATUS BYTE IN KB DDB) 


32 16 

768 384 

I-1-1 

I • * 

I-1-1 

I t 

, • - 




PAINT CHARACTER 
> FIELD IS ACTIVE 


t FIELD SIZE 

I 

*-> KEYPUNCH MODE (OFF) 

FIO-6 (ECHO CONTR. INFO. IN KB DDB) 


... continued on page 58 


-—MENU/AUTHORIZATION PROCESSOR SYSTEM- 

M APS is a system to generate Application Menus and provide system security by controlling user access 

• Unlimited number of menu levels • Menu entry points may vary between users 

• Three levels of user authorization privileges • "Keywords" to jump between menus 

• Variable arguments passed between menu and program • Menus are all file driven 

• And more • 

Written in MACRO for RSTS E. RTII. RSXI I M. And VAX 

CALL OR WRITE: (414)784-8250 

-McHUGH, FREEMAN AND ASSOCIATES, INC-^- 

■ _1135 LEGION DRIVE • ELM GROVE, WISCONSIN 53122 














































The VAX-SCENE 

Number 3 (rsts professional, voi. 3. No. 2) June 1981 



INSIDE: 

□ CONPAX: Conversion of PDP-11 Assembly Code 
to VAX-11 Native Mode 


□ VAX News 
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CONPAX: 

Conversion of 
PDP-11 Assembly Code 
to VAX-11 Native Mode 


By Stephen F. Heffner 
President. PSI (Pennington Systenns Inc.) 


I 


PSI is a software vendor specializing in software 
products for the DEC PDP-11 and VAX-11 computers. In late 
1980. we found ourselves faced with the task of converting 
two of our products from the PDP-11 to VAX-11 native 
mode. The products were VIDIO/11. a CRT-independent 
video terminal I/O subroutine library, and SCRNIO/11, a 
subroutine library and screen form editor utility for CRT- 
independent screen form use and management. The two 
products together contained about 7,000 lines of Macro-11. 
which would have to be converted to Macro-32. 

We considered the alternatives that presented 
themselves. We could recode the assembly code by hand: we 
could rewrite the assembly code sections in a higher 
language: or we could attempt some kind of automatic con¬ 
version. Our conversion schedule made the first two options 
unattractive, so we looked more closely at the possibility of 
automating such a conversion. 

It was quickly apparent that a fully automatic conver¬ 
sion was not possible: there would be too many cases where 
human judgment would have to be injected into the 
process. However, the similarity of both the VAX-11 ar¬ 
chitecture and its assembler to the PDP-11 encouraged the 
development of a conversion tool to automate as much as 
possible. Our next question was whether it would be possi¬ 
ble to design and implement such a tool to be of general use, 
beyond our immediate need. Our analysis was positive: the 
result was CONPAX (CONvert Pdp-11 to vAX). 

Using a first version of CONPAX. the 7,000 lines of 
assembly code were converted and debugged in about 10 
man-days. This is perhaps not broadly representative, since 
the conversion was done by two highly experienced systems 
programmers on code which was cleanly structured and 
thoroughly documented. However, subsequent experience 
on unfamiliar and less documented code has underscored 
the usefulness of the tool for conversion. We have been 
gratified to find that CONPAX not only performed very well 
on the specific conversion that prompted its development: it 
is proving to be highly successful on other conversions, and 
in fact is in use at several large DEC customer sites. 

The reasons for such conversions are several. "Com¬ 
patibility mode" on the VAX-11 is limited both in its per¬ 
formance (running at about half the speed of "native mode") 
and in its 64KB address space. In addition, all components of 
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a task must be in compatibility mode, ruling out tne use of 
the VAX's native mode compilers and run-time services. 
CONPAX. by making possible a rapid, clean conversion to 
native mode, opens up the full power of the VAX-11 for ex¬ 
isting PDP-11 applications containing assembly code. 

In the conversion process. CONPAX uses addressing 
modes and other information from the PDP-11 assembler 
code to produce the VAX-11 conversion for each line, in¬ 
cluding multi-line alternatives when appropriate. Simple 
editing procedures and a post-processor allow the user to 
select the desired conversion and eliminate unwanted al- 
^ ternatives. During this refinement process, which can be 

iterative if necessary. VAX-11 assemblies are always possi- 
^ ble. 

CONPAX automatically handles details such as supply¬ 
ing octal radix indicators, translating ASCII literals to 
VAX-11 format, and substituting standard VAX-11 register 
names. The spacing of input lines is preserved or. optionally, 
aligned to the user’s specification. 

The CONPAX conversion process is controlled by tables 
which can be used to "fine tune" the conversion for par¬ 
ticular programming environments. For instance, the con¬ 
version can be biased toward either 16 or 32 bit arithmetic. 
Special substitutions for names or argument strings can be 
accommodated. Substitution for any given symbol can be 
limited to a particular field of the input line — label, opcode, 
operand, or comment. Normally, conversion produces 
VAX-11 instructions, not macros. However, the control 
tables can be used to produce special conversions (including 
multi-line) of PDP-11 opcodes, macros, or operands. 

CONPAX is available under permanent license or as a 
service from PSI. As a service, an initial $1,500 fee includes 
initial consultation, training, and conversion of 500 lines of 
source code. Additional conversion costs $.50 per line. A 
permanent license costs $5,000 for one user site (either 
PDP-11 or VAX-11 version), including installation, initial 
conversion consultation, and training. Additional sites can 
be licensed at substantial discounts. Consulting and conver¬ 
sion assistance are also available from PSI on a per diem 
basis. 

Further information can be obtained from PSI (Penn¬ 
ington Systems Inc.). 65 South Main Street. Pennington NJ 
08534; phone: (609) 737-2727; cable address: PSIUSA. 


(D) marks lines where the choice of a secondary alter¬ 
native was deferred until after a trial assembly. The choice 
was then made by entering a one- or two-character code. 
Note that the conversion tables can be set up to eliminate 
the need for trail assembly of the converted VAX source; the 
trade-off is slightly less space-efficient VAX code. 

(M) marks lines where manual conversion was 
necessary. 

The CONPAX conversion process is controlled by tables. 
The particular tables used for the conversion shown here 
were designed to maintain the existing size (8 or 16 bits) of 
data in memory. However, data in registers and on the stack 
are handled as 32-bit quantities, since experience has shown 
that this is most generally effective. And. of course, ad¬ 
dresses change from 16 bits on the PDP-11 to 32 bits on the 
VAX-11. whether they are stored in memory, in registers, or 
on the stack. 

The notes given below further reflect the specific con¬ 
version tables used, as well as the general action of CON¬ 
PAX. 

COPYRIGHT 1981 by Pennington Systems Incor¬ 
porated. Reprinted by permission. PDP-11 and VAX-11 are 
registered trademarks of Digital Equipment Corporation. 


CONPAX Conversion Example: Macro-11 Subroutine 
Notes Macro-11 Source 

; ERMSG — CONSTRUCT ERROR MESSAGE 
; CALL: 

; CALL ERMSG(BUF,BUPLEN,ERRCOD,ERRTXT,ST) 

• WHERE: 

; ‘bUF = BUFFER TO RECEIVE MESSAGE (ASCII ENDED WITH NULL) 

; BUFLEN - LENGTH, IN BYTES, OF BUFFER 

; ERRCOD - ENCODED ERROR NUMBER AND FLAGS 

; ERRTXT - MESSAGE TEXT (ASCII ENDED WITH NULL) 

; ST - SET TO STATUS: 0 » OK, -1 « BUF TOO SHORT 

: 

.TITLE ERMSG 


(Nl) 

.PSECT 

INSTR,RO,I,LCL, 

,REL,CON 

(N2) 

.GLOBL 

.GLOBL 

MOVST 

M0VCH,M0VCH2 

;"MOVE STRING" UTILITY ROUTINE 
>"MOVE CHARACTER" UTILITY ROUTINES 

» 

(N3) ERMSG:: CLR 

FLGS 

;INIT LOCAL FLAGS 

(N4) 

TST 

(R5) + 

}SKIP ARGUMENT COUNT 

(N5) 

MOV 

(R5)+,T0 

;BUFFER ADDRESS 

(N6) 

MOV 

@(R5)+,T1 

1BUFFER LENGTH 

(C)(N7) 

MOV 

#TXTE,T2 

>ADDR OP INITIAL TEXT 

(N8) 

JSR 

PC,MOVST 

;MOVE TO BUFFER, UPDATE PTR + COUNT 

(D)(N9) 

BCS 

XBUFLN 

;ERROR, BUFFER TOO SHORT 

(NA) 

MOVB 

#•.,(T0)+ 

>ADD PERIOD TO BUFFER 

(NB) 

MOV 

JSR 

• V/,T2 
PC,M0VCH2 

;SEPARATE NUMERIC CODES 

(C) (NO 

MOVB 

1(T2),T2 

;GET CONTROL COUNT 

(C) (NO 

BIC 

#tC377,T2 

jCLEAN IT UP 

(M)(ND) 

GTIM$ 

(T2) 

;GET DATE 

(NE) 

ASH 

#5,T2 

}GET SECONDARY FLAGS 

(NF) 

BIC 

#tC37,T2 

;CLEAN THEM UP 


i 

CONPAX Conversion Example 

♦ This example of CONPAX conversion consists of 

a PDP-11 assembler subroutine and the resulting 
VAX-11 source code. This is immediately followed by 
notes which apply to specific lines of the source code. 

Except as indicated, the conversion of each line 
from PDP-11 to VAX-11 code was automatic: the first 
(or only) alternative produced by CONPAX was the 
final output. No user action was required in these 
cases. Otherwise: 

(C) marks lines where the user chose a secondary 
alternative. The choice was made by entering a one- 
character code. 



rSTS*\/AX*RSX! 

DATA COMMUNICATIONS 


• INSTALLATIONS THROUGHOUT NORTH AMERICA ANO EUROPE 

• FRONT ENO PROCESSOR>BASED FOR LOW OVERHEAO 

• FULL UNE UTILIZATION FOR HI-THRUPUT (UP TO 19.2 KB) 

• USER INTERFACE OESIGNEO FOR REUABIUTY AND SIMPUCITY 


614/42^/2094 COLUMBUS, OH 43212 USA TWX 810 482 1631 
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RSTS/E ON VAX 
ROSS/V 

(RSTS/E Operating System Simulator for VAX) 


ROSS/V is a software package, written in 
VAX-11 MACRO, which provides a RSTS/E 
monitor environment for programs running in 
PDP-11 compatibility mode on DEC’S VAX-11. 

ROSS/V supports: 

■ The BASIC-PLUS interactive environment. 

■ Concurrent use of multiple run-time systems. 

■ Update mode (multi-user read/write access to 
shared files.) 

■ CCL (Concise Command Language) commands 

■ An extensive subset of RSTS/E monitor calls. 


ROSS/V runs under VMS and interfaces to pro¬ 
grams and run-time systems at the RSTS/E 
monitor call level. ROSS/V makes it possible for 
DEC PDP-11 RSTS/E users to move many of 
their applications directly to the VAX with little 
or no modification and to continue program 
development on the VAX in the uniquely hospit¬ 
able RSTS/E environment. Most BASIC-PLUS 
programs will run under an unmodified 
BASIC-PLUS run-time system. 

RSTS, PDP-11. VAX-11, and DEC are trademarks of Digital Equipment Corporation. 


ROSS/V is available from: 


(Eastern U.S.) (Central U.S.) 

Evans Griffiths & Hart, Inc. Interactive Information Systems, Inc. 

55 Waltham Street 10 Knollcrest Drive 

Lexington, Massachusetts 02173 Cincinnati, Ohio 45237 

(617) 861-0670 (513) 761-0132 


(Western U.S.) 

Online Data Processing, Inc. 

N. 637 Hamilton 
Spokane, Washington 99202 
(509) 484-3400 


t 


i. 


Notes 


;RETURN TO CALLER 


(Nl) 

TXTE; 


PSECT CONST,RO,D,LCL,REL,CON 
ASCIZ /? ERROR / 


.END 

CONPAX Conversion Example: Resulting Macro-32 Subroutine 
Notes VAX-11 Source 


; ERMSG — CONSTRUCT ERROR MESSAGE 



; CALL: 

; WHERE 
; 

; 

; 

t 

CALL ERMSG(BUF,BUFLEN,ERRCOD,ERRTXT,ST) 

BUF - BUFFER TO RECEIVE MESSAGE (ASCII ENDED WITH NULL) 

BUFLEN « LENGTH, IN BYTES, OF BUFFER 

ERRCOD - ENCODED ERROR NUMBER AND FLAGS 

ERRTXT ■ MESSAGE TEXT (ASCII ENDED WITH NULL) 

ST ■ SET TO STATUS: 0 = OK, -1 - BUF TOO SHORT 



.TITLE 

ERMSG 


(Nl) 


.PSECT 

INSTR,RD,NOWRT, 

EXE,LCL,REL,CON 

(N2) 


.EXTRN 
.EXTRN 

MOVST 

MOVCH,MOVCH2 

7"MOVE STRING" UTILITY ROUTINE 

7"MOVE CHARACTER" UTILITY ROUTINES 

(N3) 

(N3) 

(N4) 

(N5) 

(N6) 

(C) (N7) 
(N8) 

(D) (N9) 
(D) 

(D) 

20001$: 

ENTRY ERMSG,MI»R2,R3,R4, 
CLRW FLGS 

TSTL (AP)+ 

MOVL (AP)+,R2 

CVTWL e(AP)+,R3 

MOVL •TXTE,R4 

JSB MOVST 

BCC 20001$ 

BRW XBUFLN 

RS,R6,R7,R8>] 

7INIT LOCAL FLAGS 

7SKIP ARGUMENT COUNT 

7BUFFER ADDRESS 

7BUFFER LENGTH 
;ADDR OF INITIAL TEXT 

7MOVE TO BUFFER, UPDATE PTR + COUNT 

7ERROR, BUFFER TOO SHORT 

(NA) 

(NB) 


MOVB 

CVTWL 

JSB 

itA/./.(R2)+ 

#tA*//\,R4 

MOVCH2 

7ADD PERIOD TO BUFFER 
.•SEPARATE NUMERIC CODES 

(C)(NC) 


MOVZBL 

1(R4),R4 

7get control count 

(M)(ND) 


$GETTIM 

(R4) 

7GET DATE 

(NE) 

(NF) 


ashl’ 

BICL2 

#5,R4,R4 
# fCr037,R4 

.•GET SECONDARY FLAGS 
.•CLEAN THEM UP 



RET 


.•RETURN TO CALLER 


(Nl) 


.PSECT 
.ASCIZ 


(Nl) Appropriate substitutions were made for the .PSECT arguments which differ 
from PDP-11 to VAX-11. These arguments are changed only if they are .PSECT op¬ 
erands; for instance, if "I" appeared elsewhere, it would not be changed. 

(N2) .GLOBL was changed to the more specific .EXTRN. 

(N3) The double colon produced the "ENTRY", and the instruction moved down to a 
new line. 

(N4) Note that R5 was converted to AP. The alternative with "R5" would have 
been chosen if the register were not being used as an argument list pointer. 

The conversion produces long-word instructions as the default for AP-relative 
values, since such values are usually addresses. 

(N5) The VAX-11 assembler does not allow symbolic names for registers. CONPAX 
substituted explicit register names as specified by the user through the con¬ 
trol tables. 

(N6) The 16-bit value was extended to 32 bits since this is often useful, and 
rarely undesirable, for values in registers. 

(N7) The KOVL alternative was chosen since the quantity moved is an address. 

(N8) The "PC," was automatically deleted and an extra tab inserted to keep the 
comment properly aligned. 

(N9) Conditional branches do not reach as far on the VAX-11 since destination 
offsets are byte-relative rather than word-relative. This alternative was cho¬ 
sen after preliminary assembly on the VAX showed that a simple branch (the de¬ 
fault alternative) would not reach the destination. CONPAX generated the 
selected three statements as a single alternative, which was chosen with a 
single one-character command. CONPAX generates local labels as necessary, from 
a user-specified starting number. . 

(NA) "ADD" is not converted unless it appears in the instruction field. f 

(NB) The single-quote (one-character) and double-quote (two-character) ASCII 
literals allowed by the PDP-11 assembler are not permitted by the VAX assem¬ 
bler. CONPAX automatically converts these to the delimited "tA" construction. 

Note that CONPAX picks a delimiter which isn't in the literal. 

(NC) The "BIC" instruction was deleted because the "MOVZBL" on the VAX made it 

unnecessary. The deletion was done with a one-character command. f 

(ND) This required manual recoding, since the directive on the VAX is different 
from the one on the PDP-11. 

(NE) CONPAX automatically doubled the destination operand, as required for the 
VAX "ASHL" instruction. 

(NF) Since the VAX-11 doesn't allow setting octal as the default radix, CONPAX 
automatically applies "tO" to octal numbers unless they're one digit. 


TXTE: 


CONST,RD,NOWRT,NOEXE,LCL,REL,CON 
/? ERROR / 


t 










TRADE UP TO VAX NOW! 


Many Systems to Choose from ... both New & Used 
Choice of PERIPHERALS & SOFTWARE 

ALSO: Full Range of DEC 11 Systems 

11/23, 11/34, 11/40, 11/44, 11/45, 11/55, 11/60, 11/70 

OVER 5000 OTHER ITEMS IN STOCK! 


NEW TERMINALS IN STOCK! 

DEC: LA34AA, LA34DA, LA36DK, LA120AA, LA120RA, 
LS120HE (USED), VT100AA, VT132AA 

TELETYPE: 4320AAK, 4320AAB, 4320AAL, 4330-2ACA, 4340BAB 

GE:2030 Tl: 743 IBM: 3101-12, 3101-22 QUME: SPRINT 5/55 


CALL 617 - 437-1100 

For Our Latest Listing of DEC CPUs & Peripherals. 

AMERICAN USED COMPUTER 

P.O. Box 68, Kenmore Station, Boston, Massachusetts 02215 
Leaders in Used DEC Hardware Since 1968. 

‘Registered Trademark of Digital Equipment Corporation 
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VAX NEWS 


VAX/VMS INCREMENTAL HLE BACKUP 
AND RESTORE SOFTWARE 

RAXCO, Inc., West Palm Beach. Florida, announces the 
immediate availabiiity of RABBIT-5, Incremental File Backup 
and Restore (IFBR), a new VAX/VMS software utility system 
that provides incremental backup and restore capability for 
data files. RABBIT-5 will save only the files selected from disk 
by writing them to a specified tape. It will then discretely 
restore specified files on request. 

RABBIT-5 IFBR is designed to provide maximum efficiency 
for both the user and the computer system when saving and 
restoring data files. Files are saved and restored approaching 
tape passing speed. 

The user may select file-names, extensions and versions 
to be saved and/or restored. "Wild card" operations are per¬ 
missible. Creation date and update, with greater-than/less- 
than arguments may be used. Last file versions may be 
selected. 

RABBIT-5 operates in a "novice" or "expert" mode. In the 
novice mode, a prompter requests "fill-in-the-blanks" informa¬ 
tion to save or retrieve fiies. In the expert mode, all system 
commands plus wild carding is permissibie. However, the 
prompter is disenabled for efficiency. 

Whiie RABBIT-5 IFBR may be used by anyone, it is particu¬ 
larly useful to system management and operational personnel 
as it offers full and partial disk backup and restore capabiiity. 
The system may be operated interactively or may "wake-up" 
and produce backup files automatically. Long jobs may utilize 
RABBIT-5 for checkpoint and restart procedures. 


Some capabilities of RABBIT-5 include: 

• ability to save/restore files by date. 

• ability to save/restore file types with wiid card notation. 

• ability to save/restore files based on actual length in 
blocks to reduce data storage. 

• ability to exclude/include files when saving or restoring. 

• abiiity to produce a directory of file names. 

• HELP command. 

RABBIT-5 is written in FORTRAN-IV and macro 
assembler, and will operate under VMS version 2 and above. 
RABBIT-5 may be purchased for $3750 or rented for 
$ 149/month. 


RABBIT-5 is the newest member of the VAX/VMS RAB¬ 
BIT Family which inciudes RABBIT-1 Resource Accounting and 
Billing: and RABBIT-2 System Performance Analysis. 


RAXCO, Inc., also announces the immediate availability of Ver¬ 
sion 3.0 of RABBIT-1, a Resource Accounting and Billing Sys¬ 
tem for VAX/VMS users. 

Major improvements include a new menu selection 
approach, more efficient processing, plus several new optional 
features. 

The RABBIT-1 menu allows the user to select from more 
than 10 categories of major transactions to be effected. Tran¬ 
sactions include: 

1. File Creation of Users 

2. File Management 

3. Name and Address Modifications 

4. Report Specifications 

5. Rates and Discounts 

6. Disk File Management 

7. Run Disk Job 

8. Run Editor 

9. Run Update 

10. Run Reports 

The RABBIT System may be run interactively, serially, 
step by step, or batch. Resource summaries, billing recaps, 
cross footing and balancing are automatic features. 

RABBIT-1 options inciude: 

• User Budget System 

• Program Accounting System 

• Communications Post Accounting System 

• Project Code Accounting System 

• Disk Accounting System 

• Tape Storage System 

• Report Generator 

RABBlT-1 is vwitten in FORTRAN IV and runs in VAX 
native mode. RABBIT -1 base price is $2495. Options are availa¬ 
ble for $250 each. Rentals are $99/month and $12.50/month 
respectively. 

RAXCO develops and markets a full line of DEC software 
systems and a complete line of DEC VMS and RSTS/E operating 
systems including system support, data management and 
financial planning. RABBIT Systems are marketed and sup¬ 
ported throughout the U.S.A., Canada. U.K., France and 
Germany. 

RABBIT Systems are available for RSTS/E Version 7 plus 
users also. 

For more information contact: Joseph Musler. RAXCO Inc.. 
3336 N. Ragler Drive, West Palm Beach. Rorida 33407, U.S.A, 
Telephone: (305) 842-2115. 
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1 

10 


60 

100 


200 


300 


340 


500 


1000 


1100 

1200 

3000 


LD1: [1,3] AMORT.BAS 

By R. Frazer, Applications Analyst for Nationwide Data Dialog, Inc. 


EXTEND 

1 AIIORT.BAS by R. Frezer, Applications Analyst L 
I for Mationt.’ide Data Dialog Inc, tt 
1 £• 
1 & 
! This progran generates an cJ,iortization schedule \;ith L 
1 interest and principal components Si)ccified for each V. 
1 payment. The final payment will be adjusted to include b 
I all of the outstanding principal. £> 
1 b 
I The payments are assumed to be monthly; the annual & 
1 interest rate is divided by 12 and the* printed date is b 
1 incremented by one month per peiiTaent. fc 
1 & 
1 Note that you may specify a different monthly payi.ient L 
1 than the amount derived by the fcrr.ula; b 
1 a smaller one results in a "balloon" final paiTuent, b 
1 since the principal does not approach zero correctly, s. 
! Hov/ever, if you specify a larger monthly paiT.ient and 6 
1 reduce the principal too quickly, the loan v»ill expire b 
I prematurely \;ith some final, partial payment. b 


Z « .1E39 I DEriAITD CC\LE FACTOR ZERO 

INPUT 'PRINCIPAL DALWICE •;O.D b 

\ INPUT 'NUNDER OF PAyNENTS';N% b 

\ INPUT 'ANNUAL IITTEREST ^ ';A.I b 

\ P$ » fJUni$(N%) + '-MONTH' b 

\ P$ - NU1!1$(K%/12%) + '-YEAR' b 

IF (n%/12%) * 12. « 0. + i:t ! EVEN NO. OF YEARS :• 

I 

B » O.B b 

\ I - A. 1/1200. I PERIOD IRTERRST RE.TE b 

\ X - 1. + I b 

\ X - (X*N%)/(X“N% - 1.) ! FACTOR FOR rCRI'ULA; b 

! b 

1 N - B * I * (1 + i)*:i / {(1 + I)“N - 1) b 


WHERE: N « MONTHLY PAYMENT i 

B = PRINCIPAL DALAI!CE TO .V'ORTIZE 

I * PERIOD lOTEREST P,ATE b 

N = TEPJl (NUMBER OF PERIODS) b 


Z » B * I * X 

\ H - FNROUND.2(Z) I !!0:'THLY Pl'T 

\ M - N + .01 IF tl < Z ! ROUND UP 

\ PRINT 'MONTHLY PAYN.ENT <' ; 

\ PRINT USING '$«:,«««.*$', M; 

\ PRINT '> '; 

\ INPUT X 

\ M - X UNLESS X - 0. 

! 

II - FNROUND.2(B*I) ! 1ST IITTEREST PORTION 

\ GOTO 500 UNLESS Il/N > 0.90 

\ PRINT 'IITTEREST/PAYNENT rsi\TIO * '; 

\ PRINT USING Il/M 

\ PRINT 'FOR THIS INTEREST PJ\TE, YOU luW’ NOT SCHEDULE'; 


b 

L 

b 

b 


N%/12%;' YEARS OF PAYMENTS' b 

\ PRINT 'TRY AGAIN...' £, 

\ GOTO 100 £. 

I b 

I 

PRINT 'OUTPUT DEVICE '; b 

\ INPUT LINE 0$ t 

\ 0$ - CVT$$(0$,-1%) b 

\ 0% - 0% b 

\ IF LEN(OS) & 

THEN 05 » 65 ! WE NAVE SOME FOREIGN DEVICE L 

\ OPEN 0$ FOR OUTPUT AS FILE 05 b 

\ PAGE,CT5 = 05 b 

I 

INPUT 'STARTING r!M,DD, YY';::M5 ,DD5 ,YY5 b 

\ P.DATES » SPACES(85) & 

\ NO.DATE5 = ('1115 =05) b 

\ I:M% - MN% - 1% b 

\ P.D$ » '00' + NUni$(DD5) b 

\ P,D$ = RIGNT(P.DS,LRN(P.D$)-15) I IN CASE OF JUST 1 DIGIT b 

\ P.ri$ = '..' b 

\ P.Y$ « 'YY' I PREPARE FOR RSETS b 

! 

COSUP 8000 1 COLUMN NCADINCS b 

I 

PRItrr «0%, TAB (57%); & 

\ P.NB « B i 

\ P.N% - 05 £, 

\ PRINT #0% USING ' , P.NR I INITIAL BALANCE & 

\ LI1T.CT5 = LINE.CT5 + 15 & 

I 

1************ LOOP ****************** c, 


3040 

3200 

3600 

3900 

4000 

8000 


8020 

20006 

32767 


1 

P.N% » P.N% + 1% ! PUTS 

\ GOTO 4000 IF P.N% > N% 

\ B = P.NB 

\ P.I » FNROUND.2(B*I) 

\ P.P = n - P.I 
\ P.NB » B - P.P 
\ GOTO 3040 IF P.N5 < N% 

IF P.ND > 0. 

\ M = n + P.NB 
\ P.P = P.P + P.NB 
\ P.NB » 0. 

1 

Nn% ■ MM% +1% 

\ IF iu;% >125 

THEN I«15 -1% 

\ YY% « YY% + 15 

I 

P^ET P.n$ - '00' + NUN1$(MK%) 

\ RSET P.Y$ - '00' + NUni$(YY5) 

\ LSET P.DATES » P.NS + '/' + P.DS + '/' + P.YS 
UNLESS NO.DATE% 

1 

GOSUB 8000 IF LINE.CT% >59% IF 0% > 0% 

\ PRINT ft05, TAP(85); 

\ PRINT f05 USING '35#S', P.N5; 

\ PRINT #05, ' ';P,DATES;' '; 

\ PRINT 505 USING '#5,Sf#.#f 5#,###.## S?,55#.#f 515,555,## 

M, P.P, P.I, P.NB 
\ LII:E.CT% - LINE.CT5 + 1% 

! 

GOTO 3000 UNLESS P.NB « 0. 

I 

I******************** LOOP ******************** 

! 

PRINT #05, CURS(125); 

\ CLOSE 05 
\ GOTO 100 
1 
1 

GOTO 8020 UNLESS 0% 

\ PRINT #05, CHR$(12%) 

\ PAGE.CT% = PACC.CT5 + 1% 

\ PRINT #05, TAB(8%); PS; ' AIIORTIZATION OF '; 

\ PRINT 505 USING '««#,«I«.#5', O.B; 

\ PRINT #05, ' 0 ';NUniS(A.I);'% ANNUALLY'; 

TAR(655);' PAGE';PAGE.CT% 

\ PRINT #05 
I 

PRINT #05, TAn(8%); 

' PMT# DATE PAYMENT (PRINCIPAL + INTEREST) NEl.’ BALANCE 

\ PRIOT #05 
\ LINE.CT% * 55 
\ RETURN 
I 

I> FNROUND.2 ROUND FLOATING POINT NUNBERS TO 2 PLACES 

I 

DEF FNROUnD.2(Z) - FIX(100. • Z + .5) / 100. 

1 

END 


! BALANCE 
! INTEREST 
! PRINCIPAL 
! NEW BALANCE 

! ADJUST IF TI!IS IF LAST PMT# 
! OR IT POTTO'*ED OUT 
! + OR - LAST pay:'ENT 
! + OR - LAST PRINCIPAL 
I FORCE CLEAN ENDING 

! NEXT DATE 

! ROLL-OVER 


b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

b 

& 

b 

b 

L 

' f £> 

& 

b 

& 

& 

& 

b 

b 

b 

b 

b 

b 

& 

& 

b 

& 

b 

b 

& 

' £> 
b 
& 
b 

b 

b 

b 

f 


FORTRAN 

PAYROLL 

PACKAGE 

SOURCE, COMMAND FILES and 
DOCUMENTATION for a COMPLETE 
SYSTEM with FIVE SPECIAL DEDUCTION, 
CHECK WRITING, and REPORT 
GENERATION. $500 

(Sample State Income Tax Module included.) 

GOLDEN TRIANGLE COMPUTERS 

Phone 713/883-4588 

Box 1866, Orange, TX 77630 
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JBSTAT ... continued from page 50 


1 PROGRAM 


AUTHOR 

DATE 

IJBSTAT.B2S 


FRANCOIS DUBOIS 1980-12-19 

1 VERSION 2 




I DESCRIPTION! 




I DISPLAY 

JOB STATUS AND 

OPEN CHANNEL INFORMATION 

1 EXAMPLE! 




J/K5 


POR JOB OWNING KB5! 


J/19- 


POR JOB 19 (ONLY OPEN CHAN. INF) 


J/8!R4!C4!C5 

POR JOB 8.DISPLAY EVERY 4 SEC. 




INPORHATZON ABOUT CHANNELS 4.5 


J/3!S!R3 

POR JOB 3,DISPLAY ONLY THE 




STATUS EVERY 3 SECONDS 


J/LPO!- 

20 

FOR JOB 20 (ON LPO!) 


J/X.LOG 

-7 

POR JOB 7 (ON PILE X.LOG) 

1 NOTE! 



SWITCH *!R77* will WORK POR A 




MAXIMUM OP 60 SECONDS 

1 DEPINITION OP * 

FLAGS"! 



P 


FILE IS PLACED 


U 


PILE IS OPEN IN UPDATE MODE 


C 


PILE IS CONTIGUOUS 


N 


FILE CAN'T BE RENAMED OR DELETED 


D 


PILE IS NARKED FOR DELETION 


T 


PILE IS TENTATIVE 

1 DEFINITION OP * 

USER*! 



Rd 


USER HAS READ ACCESS 


Wr 


USER HAS WRITE ACCESS 


Rr 


OPEN READ REGARDLESS 


Ca 


OPEN POR USER DATA CACHING 


3q 


OPEN FOR SBQ. USER DATA CACHING 


Te 


TENTATIVE FILE 


Up 


OPEN FOB UPDATE 


Su 


OPEN IN SPECIAL UPDATE NODE 

I KEYBOARD INFORMATION! 



NODE 

Bnry 

BINARY 



Teco 

RESERVED POR TECO 



CrLf 

SUPPRESS AUTOMATIC CR/LP 



Echo 

ECHO CONTROL POR BLOCK MODE 



Ctrc 

GUARDS PROGRAM AGAINST CTRL/C 



XnXf 

ENABLES INOOMING XON/XOPP PROC. 



7777 

RESERVED 



SRub 

SPECIAL SCOPE RUBOUT 


FIELD 

(ONLY WITH MODE 8) 



Act 

FIELD IS ACTIVE 



Kpch 

KEYPUNCH MODE 



NUMBER 

NUMBER OP BYTES REMAINING TO 




PILL THE FIELD 


DZ11[LL] 



DH11[LL] 




LL 

LINE NUMBER POR THAT DHll OR 




Dili 


STATUS 

OS 

XOFP NAS SENT 



©O 

CTRL/0 WAS SENT 



NOECHO 

NOT ECHOING 


BUFFER 

1771 

DATA IN BUFFER 


TYPE AHEAD 1771 

DATA TYPED AHEAD IN ECHO CONTROL 

1 PRINTER 

INFORMATION 



STATUS 

HUNG 

PRINTER NOT READY 

1 MAGTAPE 

INFORMATION 



DENSITY 

1600 BPI 




800 BPI (EVEN PARITY) 




800 BPI (ODD PATITY) 


STATUS 


CURRENT COMMAND 

I LIBRARY ROUTINES! 

IPUNCTIONS! 




1 PNRa(A8, 

>Ba) 

REMOVE 

STRING X« PROM STRING W6 

1 PNNa(A%, 

rB%) 

TURN fi% 

INTO A STRING AND LEFT PAD IT 



WITH SPACES 

I PNSa(A%, 

rAa) 

LEPT PAD STRING A« WITH SPACES 

1 CHANNELS! 




1 1 

OUTPUT 

PILE 



MODIFICATIOVSt 


THE ZKrOilMAnON IN THIS DOCOHENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTBUED AS A 
COHHITNENT BY THE CITY OP LONGUEOIL. 

THIS SOPTWABE IS UN-BELEASED AND THE CITY OP LONGUEOIL 
HAS NO COnHITHENT TO SOPPOBT IT. 


DIM M%(30%). 

M2%(30%) 

I MONITOR TABLES 

1MONITOR TABLES 

PART 

PART 

I It 

II It 

ON ERROR GOTO 30000\ 

GOTO 1000 

ITRAP ERRORS 


It 


•BewinG then Off-Line* 

•Bead* 

■Write* 

■Write Bnd-of-Plle* 

■Rewind* 

■Skip Porward* 

■Backspace* 

■Set Density/Parity* 

■Return Unit Status* 

■Return Pile Characteristics* 
■Rewind On Close* 


- 1 * 

l« 

-It 

t 


IPILE OPENINGS 

I -—-— — — 


-It 

It 

-It 


GOSUB 10400\ 

OPEN OUT* POR OUTPUT AS PILE •1%\ 
GOSUB 10440\ 

OPEN%—1%\ 

RETURN 


IDBOP TEMP. PRIVILEGES ft 

t 

IREGAIN PRIVILEGES it 

ISET PLAG OUTPUT OPENED It 
t 


INAIN 

PROGRAM 


It 

WO«SYS(CHR6(6%)>CHRa(-7%))\ 

ITRAP CTRL/C 

It 

TMDa-' 

■BnryTecoCrLfEcboCtrcXnXf7777SRub*\ 

t 

READ CND«(W%) FOR W%-0% TO 10%\ 


t 

GOSUB 

10020\ 

1 CHANGE PRIO-BURST 

It 

GOSUB 

10300\ 

IGBT MONITOR TABLES 

It 

GOSUB 

10340\ 

IGET DEVICE NAME (DISKS)It 

GOSUB 

10040 IP SCCL%\ 

IGBT CORE COMMON 

It 

GOSUB 

1006 0 UNLESS LBH(CCS6)\ 

ITBRMINAL INPUT 

It 

GOSUB 

10100\ 

1PARSE 

It 

IP E% 



t 

THEN 



t 


PRINT "ILLEGAL COMMAND - 

■iCCSOl * (*|W16|*)"\ 

t 


GOTO 32700 


t 

c%-c% 

OR ((C%-0%) AND (S.C%-0%))\ 


t 

rM-TIMB(0)\ 

I NALL TINE 

It 

REPRBSH%—1%\ 


t 

WHILE 

REPRESH%\ 


t 


GOSUB 10600\ 

ICHECK IP JOB IS ACTIVE 

It 


IP JDB% —1% 

lARE WE AT THE END OP 

It 



ITHE JOB TABLE 

It 


THEN 


t 


PRINT *JaB*|JOB%| 

■NOT ACTIVE* IP JOB%\ 

t 


PRINT *KB*|NUM1«(KB%)|* NOT IN USE* IP S.K%\ 

t 


GOTO 32700 


t 


GOSUB 420 UNLESS OPEN%\ 

JOPEN OUTPUT 

It 


GOSUB 10500\ 

ISCAN DEVNAM TABLE 

It 


GOSUB 10700 UNLESS SC%\ 

IJOB STATUS 

It 


GOSUB 11000 IP C%\ 

ICHANNELS INFORMATIONS 

It 


TM1-TIMB(0)-TM\ 

ITINE SINCE BEGINNING 

It 


REST-60-TNl\ 

IRBMAINING TINE 

It 


SLP%-SEC%\ 

1SLEEPING TINE 

It 


SLP%-REST IP REST<SEC%\ 

ICORRECT SLEEPING TINE 

It 


REFRESH%-((SBC%<>0%) AND 

(TN1<60))\ 

t 



ISET SNITCH REFRESH 

It 


SLEEP SLP% IP RBPRESH%\ 

INAIT 

It 

NEXT\ 



t 


GOTO 32700 


IPUNCTIONS 


I REMOVE STRING X« PROM STRING W« AND SET SC% 


DEP PNR«(WS,X«)\ 
w%-lNSTR(i\.wa,xa)\ 

3C%-(W%<>0%)\ 

WHILE W%\ 

W«-LEPT( W«.W%-1% )^RIGHT(Wa,LBN(XN)<Hf%)\ 
W%-IHSTR(1 %.WS.xa)\ 

NEXT\ 

PNRa-wa\ 

PNEND 


-It 

It 

-It 

-It 

It 

-It 

t 

t 


1 - 

ITORN S% INTO A STRINGN AND LEPT PAD IT WITH SPACES 


I- 

DEP PNNa(SP%.S%)\ 

W«-NUM1S((S% ECV 32767%)^327<8.)\ 
PNMa-PNS«(SP%.Na)\ 

PNEND 


-It 

It 

-It 

t 

t 


ILEPT PAD A STRING 


DEP PNS8(SP%»Ha)-SPACEa(3P%-L£N(Wa))^NS 


ICHANGE STRING XN IN STRING W* POR STRING Y« 

I- 

DEP PNCHANGEacWa.Xa.Ya)\ 

W%-INSTR(l%.WS,Xa)\ 

WHILE W%\ 

Wa-LEPT(Wa.W%-l% )«TS<fRIGHT(Na.LEN(Xa)<fN%)\ 
W%-INSTR(l%,WS.Xa)\ 

NEXT\ 

PNCHANGEa-WS\ 

PNEND 


I— — — ———— 

IROUTINBS (GOSUB) 

I — — — — ——— 


-It 

It 

-It 

t 

-It 

It 

-It 

t 

t 


-It 

It 

-It 


300 


















































June 1981 page 59 

RSTSPROFESSIONALRSTSPROf^lONAUCTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONAU?STSPROFESSK)NALRSTSPTOFESSIONAUlSrSPROFESSIONA 


ISTOKE OiJiGlHAL Pi«lO-BUH3T AMD CHANGE IT TO PRIO 120. BURST 36 16 

I-16 

BP\-PEEK(PEEK(520\)^28\)\ IBUR3T AND PRIORITY 16 

aR\-SWAP%(BP\) AND 2S5\\ I BURST 16 

PR\-BP\*2S6%/256%\ IPRIORITY 16 

WS- 3YS(CHRe( 6%)4^CHR«(-13\)^CHR8(255%)>iSYS CALL |6 

CHR8(-1%)«CHR8(120%)♦ ICUANGE PRIORITY TO 120 |6 

CHRa(-l%)4CHR8( 36%))\ fCHANGB BURST TO 36 16 

RETURN 6 

IGET CORE COMMON 16 

CCS8-SYS(CHR*(7%))\ |CET CORE COMMON 16 

CCS8-RIGHT(CCS8. I%-f2%) IGET SWITCHES ONLY 16 

IP LEPT(CCS8,I%)-LEPT(-JBSrAT-,I%) 6 

FOR I%-6% TO 1% STEP -1%\ 6 

CCS8-«DIT8(CCS8,32%44%-«-2%«l% )\ 6 

RETURN 6 

10060 1-16 

% ITERMINAL INPUT 16 

1-16 

LINPUT CCS8\ 6 

CCS«-EDIT8(CCS8.32%^4%>2%^1%) 6 


10080 RETURN 6 

10100 1-16 

1 PARSE 16 

W8-CCS8\ 6 

W*-FNR*(W*,---)\ IGET RID OF 16 

OOT*-*YBI*\ 1 DEFAULT OUTPUT IS CBl 16 

I%-IMSTR(1%,W«,-—)\ 4 

IF 1% 6 

THEN 6 

OUT8-LEFT(W8.I%-l%)\ lOUTPUT FILE 16 

0UT8-*KBt* UNLESS P0%\ IFORCE OUTPUT TO KBt IF 16 

INOT LOGGED IN 16 

W«-«IGUT(N8. !%♦!%) 6 


10120 


I%-INSTR(l%.W8,*t")\ 

WHILE 1% AND E%-0%\ 

W1»-LEFT(W8,I%-1%)\ 

W*-SIGUT(W8, I%41%)\ 

IF LEN(W18) 

THEN 

W2*-LEFT(W18,1%)\ 

IF W28-"S* 1 STATUS 

THEN 

S.C%—1% 

ELSE 

W2%«VAL(RIGHT(W18.2%))\ 

IF W28--C* 1 CHANNEL 

THEN 


SWC% —1%\ 

C%-C% OR 2%**N2%ISELECTBD CHANNELS 

ELSE 

IF W28-*K- 1 KEYBOARD 

THEN 

3.K%—1%\ 

KB%-WI2% IKEYBOARD • 

ELSE 

IF W28-*R" I REFRESH 

THEN 


SEC%^2% 1 SLEEPING TIME 


ELSE 


J0B%-VAL(H18) IJOB • 


6 

16 


16 

6 

16 


I%-INSTR(l%.W8.>t*)\ 

NEXT\ 

IF E%-0% AND 


((S.K% AND JOB%) 
(S.K%-0% AND J0B%-0%) 
(S.C% AND C%) 


OR 1KB • AND JOB f 16 

OR I NO KB • AND NO JOB *16 
OR 1 STATUS AND CHANNELS 16 
(S.C% AND SC%) OR ISTATUS AND NO STATUS16 

(SWC% AND (C%-0% OR C%-1%)))1BAD VALUE FOR 16 

1 CHANNEL OR CHANNEL 0 16 

IWAS SPBCIFIED 16 


E% —1%\ 

W18-CCS8 


10160 RETURN 4 

10300 1-14 

IGET MONITOR TABLES PART I - II. GET OWN PPN 14 

I-14 

^ CHANGE STS(CHR8(6%)4CUR8(-3%)) TO H%\ 4 

<4%(I%)-H%(I%)4>SWAP%(M%(I%41%)) FOR I%-5% TO 29% STEP 2%\ 6 

CHANGE STS(CHR8(e%)4CHR«(-12%)) TO M2%\ 6 

M2%(I%)-M2%( 1% )4^SWAP%(M2%(I%41%) ) FOR I%-3% TO 29% STEP 2%\ 6 

P0%-PEEK(PEEK(PEBK(520%)^8%)4^24%)\ lOWN PPN 14 

P%-(PO% AND -2S6%)-256%\ 1P%—1% (PRIVILEGED) 14 

I RETURN 4 

10340 1-14 

IGET DEVICES NAME FOR THE DISKS 16 

I-14 

DKNM8-DKNM8>CVT%8(SNAP%(PEEK(M2%(5%)^N1%)))^CHR8(48%^W%) 6 

FOR W%-0% TO PEEK(H%(5% )<^W1% ) 4 

FOR Wl%-0% TO M2%(9%)-2% STEP 2%\ 6 

RETURN 4 


10400 1-14 

IDROP AND REGAIN PRIVILIGES 16 

I-16 

W8-STS(CHR8(6%)^CHR«(-21%)«CHR«(-1%))\ 6 

RETURN 6 

10440 W8-SYS(CHR8(6%)4CHR«(-21%)^CHR8(0%))\ 4 

'‘RETURN 4 


10500 


I- 

ISCAN THE DEVNAM TABLE TO SEE IF PK'S ARE LEGAL 


P2%.P3%-0%\ 

I%-M2%(5%)+M2%(9%)\ 

WHILE (P2%-0%) AND (1% < M2%(23%))\ 

IF CVT%*{SWAP%{PBEK{I%)))-«PK» 

THEN 

PCNT%-PBEK(M%(5%)4l%-M2%{5%))\ 
P2%-fCEK(M%(7%)>I%-M2%(5%))\ 
P3%-PEEK(PEEK(P2%)^8%)/2% 


1 HUMBER OF PK'S 
IDBVTBL POINTER 
1KB • FOR PKO 


16 

16 

16 

6 

6 

4 

6 

6 

16 

16 

16 


10520 I%-l%<f2%\ 

NEKT\ 

RETURN 


6 

6 

6 


106 00 1-16 

IFIND OUT IF SPECIFIED JOB (OR KB*) IS ACTIVE ON THE SYSTEM 16 


J%.JDB%-0%\ 

(RESET 

-1 • 

16 

WHILE NOT(((S.K% AMD (KB%-K%) AND NOT(DBT%)) 

6 

OR (JOB%-J%)) 


6 

AND JDB%<>0%) 


4 

AND JDB%<>-1%\ 


4 

DET%^%\ 

(PRETEND ATTACHED 

16 

J%-J%^1%\ 

IJOB • 

16 

JDB%-PEEK(H%(11%)^(J%*2%))\ 

IJOB DATA BLOCK 

16 

IF JDB%<>>'1% AND JDB%<>0% 

INOT END OF TABLE AND 

16 


(JOB IS ACTIVE 

16 

THEN 


6 

JDFLO%-PBBK( JDB%4-2%)\ 

ISTATUS FLAGS 

16 

JDB2%-PBBK( JDB%4>8% )\ 

IJOB DATA BLOCK 2 

16 

PPM%^BBK( JDB2%424%)\ 

IPPM 

16 

IOB%-PEEK(JDB%)\ 

(I/O BLOCK 

16 

DDB%-PEEK(IOB%)\ 

(DEVICE DATA BLOCK 

16 

INTFAC%-PEBK(DDB%^30%) 

AND 255%\|INTERFACE FLAG 

16 

K%-SWAP% (PEEK(DDB%4^2% ) ) 

AND 25S%\1KEYBOARD • 

16 

DET%-^1% UNLESS (PBEK(DDB%♦2%) AND 255%)-J%*2% 

6 

AMD (PEBK(DDB%4-6%) AND 8192%)<>0% 

6 


ISBT FLAG DETATCHBD 

16 


10620 MEXT\ 
RETURN 


6 


10700 1-16 

1 PRINT JOB STATUS 16 

1 - 1 « 

Wt«EDIT8(RIGRT(SYS(CI{R8(6%)4CHR8(9%)4CMR8(0%)).3%).4%)\ 6 

PRINT •1%\ 6 

PRINT •1%.N8|" JBSTAT ■I DATE*(0%)I• • |TINE8(0%)iCHRS(10%)\ 6 

PRINT #1%. "Job* I 6 

TAB(ll%)f'Who" I 6 

TAB(19%)f«Wh8r«" I 6 

TAB(27%)|"Hbat* I 6 

TAB( 36%)|*Sls«‘' f 6 

TAB(44%)|*Stat.«" I 6 

TAB( 54%)|-Rta- I 6 

TAB(62%)i*Prio/Brat" I 6 

CHR8(10%) 6 


10720 Ja-FNS«(2%.NUH18(J%))\ IJOB • 16 

wa-''-\ 6 

wa-"-" IF JDFLC% AND 256%\ ITEMP. PRIVILEGES DROPBD16 

Wa--4>> IF JDFLC% AND 2048%\ ITEMP. PRIVILEGES ACTIVE16 

Ja-Ja^" •♦wa\ 6 

6 

Wa-FNSa(3%.N0Mia(SHAP%(PPH%) AND 255%))♦I PROJECT • 16 

".•♦NUMia(PPN% AND 255%)\ IPROGRAMMBR • |6 

Wa-Na-*-SPACEa(7%-LBM(Ha) )\ 6 

aa->***.***> UNLESS PPN%\ INOT LOGGED IN |6 

WHoa-“(•♦wa+»)»\ 6 

6 

Wa-*KB-\ 6 

IF INTFAC%^% AND NOT( DET% ) 6 

THEN 4 

Wa-*PK"\ 4 

K%-iK%>P3%\ 4 

W%-(PEEX(PBBK(P2%^K%*2%)^2%) AMD 255%)/2%\ 4 

IF W% 4 

THEM 4 

Ma-*P*-fNUMia(K% )^*J*\ 6 

K%^% 4 


10740 WHEREa«Wa4-N0Mia(K%)\ 1KB • OR PK* |4 

WHEREa-"Dat* IF DET%\ IDETATCHED |4 

4 

WHATa-RADa(PEEK(JDB2%^12%))^BADa(PEBK(JDB2%^14%))\1JOB NAME |4 

6 

SIXBa- FNNa(2%.(PEEK(JDB%^22%) AND 255%))t•/■♦|ACTUEL SIZE |4 

FNMa(2%.(PEEK(JDB%«30%) AND 255%))♦-K-\|MAXIMUM SIZE |4 

6 

W%-PBEK(N%(15%)^(J%*2%))\ 4 

IF (W% AND PEEK(N%(13%)>(J%*2%))) 4 

THEN 4 

Wa->RM* IRUKNING |4 

ELSE 4 

IF PEEK(JDB%^24%)-0% AND 4 

(PBEK(JDB%422%) AND -256%)-(NOT 15359%) 4 

THEN 6 

Wa->RS* IRBSIDBNCY WAIT |4 

ELSE 6 

W%-W% AND (NOT 16384%) IF (W% AND (NOT 16384%))\ 6 

IF W% AND 16384% 6 

THEN 6 

Ha-*BF* (BUFFER WAIT 16 

ELSE 6 

IF W% AND 8192% 

THEM 6 

Na-*aL*\ (SLEEP WAIT 16 

W8--SR* IF (PEBK(JDB%«4%) AND 255%)-5%IRECEIVER WAIT 16 

ELSE t 

IF H% AND 4096% 6 

THEM 6 

Ha--FP- (FILE PROCESSING WAIT |6 

ELSE C 

IF W% AND 2048% 6 

THEN 6 

Wa--TT« (TERMINAL OUTPUT WAIT |6 
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BLSE 
IF w%-0% 
THEN 




IHIBEKNATINO 


CdM%-PEEK(PEBE( Jl»%4>6%)4-«\) AND 255%\I CHANNEL • 
SCB.MCB%-PEEE( lOB%-fCHN% )\ IPOZNTEfi TO NCB 

DIDX%-PEEK(SCB*WCB%) AND 255%\ IDBIVEB INDEX 
IF DIDX%-0% 10 - DI3X 

THEN 

F.U%-PEEX(PEEK(SCB.NCB%>8%)-4%) AND 255%\ 

IF IP UNIT NUMBER 

NN-CVT%*(SNAP%(PEEK{M2%(21%)>(F.0%*10%)>f4%) ))\ 
I DISK NAME 

UNLESS LEN(CVT*»(H*,-1%)) 

1 CANNOT BE DETERMINED 


ELSE 


4 

14 

4 

14 

14 

14 

14 

4 

4 

14 

4 

14 

4 

14 


11400 /CB%-PEEK(NCB%-f8%)-28%\ IPOINTER TO FCB 

DEV«-MZD(DKNN«.3%*(PEEK(FCB%>24%) AND 255%)♦!%,3%)♦■I"N 

IDISK MANE 

d-C5536.*(SWAP%(PEEK(FCB%^24%)) AND 255%)*32768.♦ 

(PEEK(FCB%«26%) BCV 32767%)\ IFILE SIZE 

SIZE8-FN3»( 6%,MUM1S(W) )\ 

CLU8-FNH8(3%.PEEK(FCB%428%))\ IFILE CLUSTERSIZE 

N-65536.*(SWAP%(PEEK(NCB%>4%)) AND 255%)+32768,♦ 

(PEEK(WCB%4>6%) EQV 3276 7% )\ ICUiiRENT BLOCK 

BLtf-FNS8(6%,NUMl«(W))\ 

30SUB 11500 IF STA% AND 256%\ I IF HON-FILE-STRUCTURED 

c;OSUB 11600 IF (STA% AND 256%)-0%\ 1 IF NOT N-F-STRUCTURED 


H8-CVT%8(SWAP%(PEEK(N2%(5%)>M2%(9%)-fDIDX%-2%) ) )\ 4 
I DEVICE NAME 14 

N8--OC* IF PEEK(PEEK(JDB%46%)410%)<0% IF DlDX%-2%4 
|OC ON KB INPUT NAIT 14 


3TATE8-N8+* -N 

N%-SMAP% (PEEK( JDB%<»>30% ) ) AND 255%\ 
N1%-PEEK(JDB%^22%)\ 

IF N1%<0% 

THEN 

W%-64%\ 

IF Wl% AND 1536% 

THEN 

M%-W%-*-64%\ 

'~^F Nl% AND 512% 
THEN 

t«%.W%^64% 

IF «<% AND 6 3% 

THEM 


PRINT *1%. 

TAB( 04%) I 
TAB(29%)I 
TAB(35%)| 
TAB(41%)| 
TAB(47%)| 
TAB(52%)I 
TAB(60%)| 
TAB(71%)| 
TAB(77%)| 

RETURN 


FNS8(2%,NUM1«(CH%))I*.*1 

DEV* I 

SIZE* I 

FL* I 

PROT* I 

CLU* I 

OPN* I 

USER* I 

BL* I 

LK*\ 


I LOCKED 

ISWAPPINS IN 

I SNAPPING OVT 


4 

4 

4 

14 


DEV*-DEV*+-N0N-FILE-3TRUCTURED*\ 

FL*,PROT*.OPN*,USER*,LK*-*'X 
RETURN 

DEV*-DEV*^*[■♦FMN*(3%.SRAP%(PEEK(FCB%44%)) AND 255%)\ 

IPROJECT NUMBER 

R*-SPACE*(3%)\ 

LSET H*-NUM1*(PEEK(FCB%>4%) AND 255%)\ IPROGRANMER NUMBER 
DEV*-DEV*+-,•♦N*^"J*\ 

R*-RAD*(PEEK(FCB%46%))♦RAD*(PEEK(FCB%>8%))♦•.•♦IFILE NAME 


N*-CHR*(65%^(N% AND 192%)/64%)^ ISHAPPING FILE 
RIGtfT(NUM*(100%4(M% AND 63%)).3%)ISLOT NUMBER 


14 

14 


N*-MID(- 


LcA 3wl Swo •.(N% AND 192% )/16%♦!%.4%)\ 


RAD*(PEEK(FCB%>10% ) )\ 

W*-» — UFD —• IF STA% AND 16384%\ 
0EV*«DEV*^W*\ 

3%-PEEK(FCB%^12%)\ 

N*---\ 


IEXTENSION 
IIF IT 


A UFD 


W*-*NSW • IF 

(N% AND 192%)-0% AMD (JDFLG% 

AND 163a4%)<>0%4 

R*- "P" 

IF 

S% 

AND 2%X 

1PLACED FILE 


INOT TO BE 

SWAPPED 

14 

Ra-w*^* 0 * 

IF 

s% 

AND 8%X 

1 UPDATE NODE 





Ra-w*^*C* 

IF 

3% 

AND 16%X 

ICONTIGUOUS FILE 

STATE*-3TATE*+W*X 



4 

R«-W*^*N* 

IF 

s% 

AND 32%X 

1 CAN'T BE RENAMED OR 




4 





1 DELETED 

W%-PEEK(JDB%+12%)X 



4 

FL*-W*X 





RTS*-RAD*(PEBK(W%42%))4RAD*(PEEK(N%44%))XIRTS NAME 


14 

R*-3TRING*(((S% 

AND 128%)<>0%)*-l%. 

1 NARKED FOR DELETION 


N*-FNS*(4%,MUM1*(PEEK(J0B%^28%)*256%/256%))\ IPRIORITY 
PB*-N*^*/*+NUMl*(3WAP%(PEEK(JDB%+28%)) AND 255%)\|RUN BURST 


PRINT •!%, 

TAB{08%)| 
TAB(19%)| 
TAB(26%)| 
TAB{35%)| 
TAB(44%)f 
TAB(53%)| 
TAB(62%)| 
CHR*(10%)\ 

RETURN 


J* 

NHO* 

NHERE* 

NHAT* 

SIZE* 

STATE* 

RTS* 

PB* 


14 

14 

4 


68%-16%*(((PEEK(NCB%) AND 2048%)-0%) AND 1 TENTATIVE 
({PEEK{NCB%+12%) AND 2%)<>0%)))\ 

FL*-FL*>W*\ 

FL*^PACE*( (6%-LEN{FL* ) )/2% )+FL*\ 

PROT*-*<*+FNS*(3%,NUMl*(3WAP%(PEEK{FCB%+12%)) AND 255%))>*>*\ 

1PROTECTION CODE 

R%-PEEK(FCB%>14%)\ 

OPN*-FNN*(3%,H% AND 255%)♦*/■♦NUMl*(SHAP%(N%) AND 255%)\ 

lOPEN COUNT 


I READ ACCESS 
I WRITE ACCESS 


1 - 

1CHANNEL INFORMATION 
1 - 


PRINT *1% IF SC%\ 

IF SC%-0% OR C%—1% 

THEN 

PRINT 91%. 

TAB(04%)I 
TAB{11% )| 
TAB(18%)I 
TAB(31% )# 
TAB(36%)| 
TAB(42%)| 
TAB{47%)| 
TAB{53%)| 
TAB(63% )| 
TAB(72%)# 
CHR*(10% ) 

11020 GOSUB 11100 IF (C% AND 2%* 
RETURN 


•Chn* 

•D*v* 

•PPn* 
■Fil« Naa 

•Slaa* 

•Flag** 

■Prot* 

■Clu* 

•Op/Rr* 

•U*ar* 

•BlocA* 


'CH%) FOR CH%-1% TO 15%\I INFORMAT. FOB I 4 
ISELECTED CHANNELS ONLY 14 


-14 

14 

-14 


W*-**\ 

R*-W*>-R<1* IF (SrA% AND 512%)-0%\ 

R*-W*^>Hr* IF (3TA% AND 1024%)-0%\ 

W.WCB%-PEEK(WCB%^12%)\ 

R*-W*^*Hr* IF W.WCB% AND 1%\ 

R*-N*^*Ca* IF W.WCB% AND 8%\ 

R*-Wa+*Sq* IF W.WCB% AND 16%\ 

JSER*-W*\ 

W*-**\ 

W*-*T«- IF (3TA% AMD 2048%)- 0% AND (W.WCB% AND 2%)<>0%\ 

ITENTATIVE FILE 

R*«*Up* IF (STA% AND 2048%)<>0% AND (N.WCB% AND 2%)- 0%\ 

I UPDATE NODE 

4*-*Su* IF (STA% AMD 2048%)<>0% AND (N.WCB% AND 2%)<>0%\ 


IREAD REGARDLESS 1 
IDATA CACHING I 
ISBCUENTIAL DATA CACHING) 


ISPECIAL UPDATE MODE 


USER*-USER*♦W*\ 

JSER*-SPACE*((10%-LEN(USER*))/2%)♦D3ER*\ 


LK*--*\ 

LK*-*Lk* IF STA% AMD 8192%\ 


IRECORD IS LOCKED 


RCB%-PEBK(I0B%^CH%*2%)\ 

RETURN UNLESS WCB%\ 

STA%-PEEK(HCB%)\ 

0IDX%-STA% AMD 255%\ 

IF DIDX% 

THEN 

GOSUB 11200\ 

GOSUB 12000 IF DIDX%-2%\ 
GOSUB 13000 IF LBFT(DEV*.2%)- 

GOSUB 14000 IF LEFT ( DEV*. 2% )- 
PRINT 91% IF CCPOS(l%) 


IPOINTER TO WCB 
US CHANNEL OPEN 


IDRIVER INDEX 


14 

14 


IKEYBOARD INFORMATION 
I- 


1OTHER THAN DISK 
IIF WE HAVE A KEYBOARD 
•MM* OR LEFT(DEV*.2%)-*MT*\ 
IIF WE HAVE A TAPE 
•LP-\1IF WE HAVE A PRINTER 


ISET FLAG MODE 


■ON* 


GOSUB 11400 


IWE HAVE A DISK 


11120 

11200 


RETURN 


DEV*-CVT%*{SWAP%(PBEK(N2%{5%)♦M2%(9%)♦DIDX%-2%)))\1 DEVICE NAME 
UN%-SWAP%(PEEK(WCB%42%)) AND 255%\ lONIT NUMBER 

W*-NUN1*(UN%)\ 

DEV*-DEV*^N* UNLESS 0EV*-*NL*\ 

DEV*-DEV*4*I-X 

PRINT 91%. FNS*(2%.NUN1*(CH%))|*.*| 

TAB(4%)|DEV*|X 

RETURN 


4 

14 


W%-PEEK(WCB%^26% ) AND 355%X 
W*—*Nod*t "X 

R*-W*^HID(TND*.(X%*4%)^1%.4%)>* * lOPEM MODES FOR KEYBOARD! 

IF W% AND 2%**X% FOR X%-0% TO 7%X 
MODE*-**X 
NODB*-W* IF W%X 
FLD*-**X 

N8%-0%X ISET FLAG NODE 8 "OFF” I 

IF N% AND 8% IIF ECHO CONTROL MODE 1 

THEM 

M8%—1%X 

N%-PEEK(HCB%^38%)X 
W*-*Pi*ldt "X 

W*^*^*Act * IF W%<0%X IFIELD IS ACTIVE 

H*-W*^*Kpch * IF (N% AMD 128%)-0%X1 KEYPUNCH MODE 
FLD*^*^NUM1*(W% AMD 127% )♦* * INUMBER OF BYTES LEFT 

W%-PEEK(WCB%+30%)X 

IMTERFACE*-MJD(*KL0C0L0EPKDJDHDZ*.(W% AND 255%)♦!%.2%)X 
IF LEM(INTERFACE*) 

THEN 

INTERFACE*-INTERFACB*^*11["♦NUH1*(SWAP%(W%) AND 15%)^*J* 

ISUB-LINE NUMBER 

STATUS*.W*-**X 
W*-*00* IF STA%<0%X 
DDFLA0%-PBEK(HCB%>8%)X 
W*-W*+*OS* IF D0PLA0%<0%X 
W*-H*^* Noacho* IF D0FLAG% AMD 32%X 
3TATUS*-*3tatu«l*6W* IF LEM(W*)X 
PRINT 91%.NODE*}FLD*IINTERFACE*|STATUS*X 


lOO (JUNK OUTPUT) 


|OS (XOFF) 
INO ECHO 
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ilETUKV IP DDPLAa% AND 32%\ 


I DON'T SHON BUPP2B IP NOIt 



lECHO BIT IS ON 

14 

4*-""\ 


4 

4 

EPL%-0%\ 

ISBT FLAG "ODD ADDB" OPP|4 

SP%-PEBK(WCB%<fl8%)\ 

1EMPTY POINTEB 

14 

PP%-PEEE(NCB%>20%)\ 

IPILL POINTEB 

14 

BU*-"Buffart "X 


4 

GOSUB 12040\ 


4 

BETUBN UNLESS H8%\ 

1 DISPLAY TYPE AHEAD IP 

14 


INODE 8 (ECHO CONTBOL) 

14 

4*-""\ 


4 

BP%-PEEK(HCB%-»32% )\ 

1EMPTY POINTEB 

14 

PP%-PEEK< 4CB%4^34% ) \ 

IPILL POINTEB 

14 

BU*->Typa abaadt "X 


4 

BPL%-((BP% AND 1%)<>0%)X 

ISET FLAG "ODD ADDB" 

14 

BP%-EP%-1% IP EPL%X 

IIP WE HAVE AN ODD ADDB. 

14 


ITHBN HAKE IT EVEN 

14 


1 BECAUSE WE CAN'T PEEK 

14 


lAT AN ODD ADDBBSS 

14 

GOSUB 120C0X 


4 

BETUBN 


4 

4HILE (EP%<>PP%) AND (EP%-1%<>PP%)X 


4 

IP (EP% AND 31%)<>0% 

IIP END OP SMALL BUPPEB 

14 

THEN 


4 

4*-N*^CVT%*(SNAP%(PEBr(EP%)))X 

4 


IGET 2 CHABACTEBS PBON 

14 


1SHALL BUPPEB 

14 

BP%-EP%^2% 

lINCBEHBNT ADDBBSS BY 2 

14 

ELSE 


4 

EP%-PEEK(BP%-32%) 

IPOINTEB TO DATA IN THE 

14 


INEXT SHALL BUPPEB 

14 

NBXTX 


4 

4*-BlOHT(4*,2%) IF EPL%X 

IDBOP THE PIBST BYTE OP 

14 


1CHAIN IP WE STABTED ON 

14 


IAN ODD ADDBESS 

14 

4*-LBPT(N*,LEN(4*)-l%) IP EP%>PP%X 

IDBOP THE LAST BYTE OP 

14 


1 CHAIN IP THE PILL PTB 

14 


IHAS AN ODD ADDBBSS 

18 

IP LEN(M*) 


4 

THEN 


4 


NN-PNCHANGBN(NN,CHBN(09%)."<tab >")\ 
Wa-PNCHANOSa(W«,CHB*(10%).•<1f>•)\ 
Wa-PNCHANGBa(NatCHBa(12%).*<11>")\ 
M«-PNCHANGBa(NN,CHBN(13 %)."<cr >■)\ 
Wa-PNCHANGB«(N«.CHBa(Nl%). ‘C^^CHB*(Nl%•fC4% ) ) 
POB Nl%-1 TO 2<%\ 

Na-PNCHANOBa(Na,CHB«(Nl%),"<><fNailia(Nl%)<»*>>) 
POB Wl%«27% TO 31%\ 
B0PPEB«-B0«<f-1">W«4"1>\ 

PBINT •1%,TAB(9%)|B0PPBB« 


IHAOTAPB INPOBMATION 


-It 

It 

-It 


N%-iPBBK(NCB%<f22%) AND 127%\ t 
BPlN--«\ t 
BPIN«*1400 BPI" IP (W% AND 104%)-0%\ IlCOO BPI It 
BPIS-"tOO BPI (Bran)* IP (N% AND 104%)-104%\1 BOO BPI BVBN PABITTit 
BPI«-*«00 BPI (Odd)" IP (N% AND 104%)-94%\ IBOO BPI ODD PABITTit 
BPlB-"DaDaltyi "♦BPIa-f"," IP LBN(BPIb)\ t 


•«%-PEEK(NCB%^2C%) AND 2S5%\ 

CHD*--"\ 

CNDa-" statuat ••K:HDa(W%) ip N%<ii%\ 
PBINT •l%.BPIa|CHDN\ 

BETOBN 


ICUBBENT CONHAND 


It 

t 

t 


IPBINTBB IMPOBNATION 


I- 

3TATUSa-""\ 

STATUS*-" Statum Hung" IP STA%<0%\ 
PBINT •!%,STATUS* IP LBN(STATUS*)\ 
BETUBN 


It 

-It 

t 

t 

t 

t 


I — - — - 

IBBBOB BOUTINE 


-It 

It 


30100 

31500 


BESUNE 30020 

N*-SYS( CHB*( 4% ) >01B* (-7% ) ) \ 

GOSUB 10440\ 

GOTO 32700 IP EBB-28%\ 

GOTO 32700 IP BBB-11% AND EBL-10040 

IP EBL-10120 AND (BBB>49% AND BBB<53%) 
THEN 

B% —1%\ 

GOTO 10140 

IP EBB-10% AND BBL-420 
mBN 

PBINT "ILLEGAL OOTPUTl "IOUTNN 
GOTO 32700 

GOTO 12100 IP EBB-33% AND EBL-12040 
PBINT EBB,EBL\00T0 32700 


ITBAP CTBL/C |t 

IBBGAIN TEMP. PBIVILEGESIt 
ICTBL/C It 

ICTBL/I It 

t 

t 


IBNTEBED VIA CCL 


SCCL%—1%\ 
GOTO 100 


ISBT PLAG CCL "ON" 


lEHTEBBD VIA LOGIN 
I - - ■■■ — ■■ ■ ■ 

3CCL%—1%\ 
W*-SrS(CHB*(7%))\ 
4*-"JBSTAT"-fW*\ 
•«*-8TS ( CHB* (•%)♦«*>' 
GOTO 100 


IGET COBB COHNON 
I PUT COBB COHNON 


I END UP PBOOBAH 


I- 


-It 

It 

-It 

It 

t 

-It 

It 

-It 


CLOSE •1%\ 

4*- STS(CHB*( <%)<K:HB*(-13%)>CHB*(255%)4>|STS CALL 

CHB*(-1%)<«>CHB*(PB%)4 lOBIOINAL PBIOBITT 

CHB*(-1%)^CHB*(BB%)) lOBIOINAL BUBST 

END 


It 

t 

-It 

It 

-It 

t 

It 

It 

It 


What Can One Coupon Get For You? 

A Free Resume Kit... 

From the Only Employment Sendee %vith Tivin Inhouse PDP 

11/70 RSTS systems. 

An Invaluable Aid In Your Job Changing Process 

The Kit presents in an uncomplicated format what we’ve learned in over 15 years of employment service to 
the computer industry. Fill out the coupon and return it to us. We’ll send you our free Resume Kit. 


Name 


Applications 


Address 


Degree 

Yr. Grad. No. Yrs. Experience 

City 

State 

Zip Current Employer 


Phone 


Job Title 


Hardware 


Languages 



a 


We have many exclusive Data Processing positions available — locally and nationwide 


Scientific Placement, Inc. 


Employment Service 


P O Box 19949 Houston. Texas 77024 (713) 4% 6100 


RSO 6/81 
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RSTS DISK DIRECTORIES, Part 5 

By Scott Banks, Systems Design 


Introduction 

I have planned this fifth episode, a general overview of 
FIP s role in maintaining disk directories, not to require the 
previous articles. We'll deal with conceptual OPENs, CLOSES, 
and such, concerning ourselves little with all the blasted 
details. It would only be fair to admit that 1 currently have 
Volume 2, Number 1 of the RSTS Pro in front of me right 
now. So, if you want 'em, the UFD layouts begin on page 45, 
Hmmm... the marked for deletion' bit.,. 


FIP and SATT,SYS 

The File Processor, FIP, is a major component of the 
RSTS monitor, FIP is the code responsible for overall file 
management. All operations that affect the directory struc¬ 
ture occur via FIP. This set of chores is more comprehesive 
than it appears at first. For instance, the RSTS monitor 
creates a new Job, but it is FIP that (after running LOGIN) ac¬ 
tually logs' the user into the system. Ditto for error 
messages (the text is located in [0,1] ERR.SYS) and run-time 
system changes (true, the linked list is in memory, but 
remember all those files with .RTS extensions). FIP even 
worries about magtape and other devices. For the moment, 
we ll restrict ourselves to those FIP operations that deal 
with disk directory maintainance and are readily enjoyable 
by the Basic-Plus programmer. In the interest of clarity, I 
will ignore the effects of any caching or large-files optimiza¬ 
tion. 

Every RSTS disk must have a file in [0,1] called 
SATT.SYS, the Storage Allocation Truth Table. Each PDP-11 
word has 16 bits, and 256 of these fit into a disk block. 
Therefore, each block of SATT contains 4096 bit flags. There 
is one bit flag for each device cluster available to the system. 
The filesize of SATT depends on the device clustersize and 
the total number of clusters. SATT can never be greater 
than 16 blocks (65536 clusters). Remember that we must 
always be able to describe uniquely any DON via a 16-bit un¬ 
signed integer. 

The SATT must be a contiguous file. When a disk is 
mounted, the location of its SATT is noted. FIP operations 
that affect the allocation of disk clusters to files reference 
and update the SATT. Any cluster that is currently not 
allocated to any file will have its correspondiing bit clear. 
That bit is set to 1 when the cluster is allocated, and reset to 
0 when it is again free. 


Your Basic File Search 

For one reason or another. FIP may search for a specific 


file. There are three essential pieces of information required 
to do this. Two of these, the disk device (e.g. DBO:) and the 
account or PPN (e.g. [2.3]) are often allowed their default 
values. When supplied, they may be specified explicitly or by 
logical names or special characters (such as $). In any event, 
the device and PPN are definitely known with the effect 
that the search is narrowed down to exactly one UFD. The 
initial DCN (device cluster number) of this UFD may already 
be available. The UFD for SY:[1.2] and that of each Job cur¬ 
rently logged-in (corresponding to its PPN on SY:) appears in 
a monitor table. For random account selections, the MFD of 
the appropiate disk must be searched for the UFD entry. Ob¬ 
viously, if this is a fruitless effort, the file does not exist. 

The UFD search is a serial scan of the linked list of 
Name blockettes. If one is stumbled upon that has a match 
for our desired filename, the search ends successfully. The 
search terminates in failure when the end of the UFD is 
reached. If the status byte of a name blockette has either its 
MFD' or marked for deletion' bits (6 and 7) set, that entry is 
ignored. 

OPENing an Existing File 

The Basic-Plus OPEN FOR INPUT statement, for exam¬ 
ple, attempts to open an existing file. FIP performs a search 
for the specific file, terminating with an error 5 if the file 
cannot be located. But even if it is there, the work is only 
half complete. The status and protection bytes in the Name 
blockette (word 4) determine whether or not the file may be 
accessed. The rules for file protection are applied to decide 
read vs. write access privileges. If no valid access is possible, 
the file is not opened and an error is returned. 

The open file count, the lower byte of word 5 of the NB. 
will be zero if we are opening this file at a time when no 
other Job already has it open. The upper byte (the read-only 
regardless open count) is of no significance in this respect. 
Assuming we are first in line, we have our choice of update 
mode or normal mode. These two may never be mixed, so 
we use bit 4 of the status byte to determine (from now until 
no channel has this file open) whether this is an update 
mode or a normal mode file. If this is an update OPEN, bit 4 
will be set, else it will be cleared. Something must also be 
done about bit 2. For files opened mode 0 and write-access 
available, bit 2 will be set to indicate that write access has 
been given. If write access is not granted (either by restric¬ 
tion or mode request) bit 2 will be cleared. 

If the file is already open by one or more Jobs, special 
restrictions apply. If bit 3 of the status is set. this would 
mandate that the current OPEN itself be seeking update 
mode. On the other hand, if the bit is clear, this OPEN must 
not be attempting update mode. For normal mode OPENs, 
write access will not be granted if bit 2 is already set. If 
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write access is given for this OPEN, then the bit will be set at 
this time. 

For all files that are truely opened (no errors occur), the 
open file count is incremented. After some internal book¬ 
keeping. the OPEN is logically complete. The job that re¬ 
quested the OPEN is now allowed to continue. All read and 
write transfers need only refer to the channel number under 
which the OPEN occured. 

In both large and small-files systems, a certain amount 
of information is kept in memory. Each open channel has a 
file control block that retains data about the file opened. 
Large-file systems minimize disk transfers by using the 
directories only to 


If a KILL has made it to this point, the file will eventual¬ 
ly be deleted from the system. Normally, it will be removed 
immediately. The file's Name blockette will be unlinked 
from the remaining NB's in the UFD. The device clusters 
allocated to the file will be returned to system by clearing 
one or more bits in the SATT for the proper disk. Then each 
blockette consumed by this directory entry will be zeroed, 
thus forming Hole blockettes available for future reuse. But 
I did say eventually, didn't 1? If the file to be killed happens 
to be currently open, we Just can't delete it. This could 
possibly allow two files to share the same space on disk, in a 
totally random and changing fashion. It's easy enough to 

check if any chan- 


locate files. All the 
status bytes and 
access counts are 
kept in memory via 
window control 
blocks. Further¬ 
more, directory 
caching eliminates 
physical disk reads 
by keeping current 
copies of UFD 
blocks in memory. 

KILLing a File 

The first re¬ 
quirement for 
removing a file 
from the system is 
that it must exist. 
Assuming the file 
search has indeed 
located the doomed 
denizen of disk, the 
protection code and 
status bytes of the 
file must be check¬ 
ed. KILL demands 
that the protection 
code allow write 
access to the file 
(from whatever ac¬ 
count and privilege 
status you happen 
to be under). Addi¬ 
tionally. the 
delete/rename pro¬ 
tection (bit 5 of the 
status byte) must 
not be seiected. 
Even with perma¬ 
nent privilege, you 
cannot delete a file 
(such as SATT) 
when it has delete/ 
rename protection 
(look for the P after 
the filesize). 


PDP-U&V^'iisers 


GomDesi|n^ TC-3 Concentrates 
Multiple Terminals and Printers 
on a Single Teiqthone Line 
Cost-Effectively for tbe 

PI^U and VjAX. 


I CONCENTRATION 

Many terminals-one line 

I PROVEN RELIABILITY 

TC-3s are in use world wide 

I STATISTICAL MULTIPLEXING 

Efficiencies to 400% 

I BUILT-IN SYSTEM MONITORS 

Real-time data and signal displays 


COST SAVINGS TO 40% 

Totally eliminates DZIls and cables 

ERROR CORRECTION 

Data checked with all errors 
eliminated automaticalTy 

FAST ECHO RESPONSE 

-at last! 

POWERFUL DIAGNOSTIC PANEL 

Modern loop-back, unit self-tests, 
and terminal diagnostics 


Put a TC-3 onTour UNIBUSlnd 
Get a DZll with Stat Mnxing too! 

“We are Impressed... have already recommended the unit to a 
number of other RSTS/E users and shall continue to doso.. 
Intercontinental Forwarders, Inc. 

For further information and the sales office for your area 
Call toll-free(800)238-6938 or in Calif. (805) 964-9852 

SEE US AT COMDEX/SPRING '81 - Booth #1223 

ComDesign. Inc. 

340 South Kellogg Avenue 
Goleta. California 93117 


ComDesign 


• Registered Trademarks of DEC 


nel has this file 
open. If so. FIP 
simply marks the 
file for deletion by 
setting bit 7 of the 
status byte. In the 
section on CLOSE, 
we ll see how this ac¬ 
tion affects the file. 

For non-execut¬ 
able files, the privi¬ 
lege bit of the pro¬ 
tection code may be 
set to zero all blocks 
of the data file. This 
happens during the 
kill phase. For files of 
significant size, say 
10000 blocks, this 
can take several 
minutes. Since FIP is 
single-threaded, it 
must complete this 
operation before go¬ 
ing on to another 
job's request. Such 
an operation wrill ef¬ 
fectively stop the 
computer, as few 
jobs go very long 
vyithout a FIP re¬ 
quest. This is an ex¬ 
treme example, but 
serves to illustrate 
the point that FIP 
optimization is an 
important part of 
getting the most 
out of RSTS. File 
and directory entry 
placement, minimiz¬ 
ing OPEN sand KILLs, 
FIP buffering, and FIP 
code residency are 
investments with a 
good return. 
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CLOSEing an Open Channel 

As expected. CLOSE reverses the OPEN process. Most 
important is the fact that the open file counter is 
decremented. RSTS insists that no file or device may be 
opened on a channel that is already in use. BASIC-PLUS and 
other high-level environments buffer us from this decree by 
automatically issuing a CLOSE request before the OPEN is 
attempted. 

If a file is marked for deletion, CLOSE depends on the 
KILL code to now do away with the file. Of course, if multi¬ 
ple channels have had the file open, this will happen when 
the access count finally drops to zero. Until such time, the 
file will not be accessible to OPENs, KILLs, and other direc¬ 
tory operations. Aside from its appearance on DIRECTORY/S 
listings, the file is gone. 

Another detail about CLOSE is that it has a counterpart 
called RESET. RESET is accessible in BASIC-PLUS by means 
of a CLOSE referencing a negative channel number. The 
RESET operation bypasses certain device related functions 
(such as final magtape EOF marks). For disk, this leads us to 
tentative files. When a file is created tentatively using MODE 
32%, it is also marked for deletion. Performing a normal 
CLOSE on the channel will clear status bit 7, thus allowing 
the file to become permanent. This new file will supersede 
an existing file of the same name, working much like OPEN 
FOR OUTPUT. If you CLOSE using the negative of the chan¬ 
nel number, the resulting RESET will kill the tentative file. 


Creating a New File 

The OPEN FOR OUTPUT statement will create a new 
data file. If a file of the same name already exists, that file 
will first be deleted. Therefore, as far as directory main- 
tainence is concerned, the first step is to search for the file. 
If the file is not found, the creation simply continues. If it 
does exist, progress then becomes dependent upon whether 
it is allowable to delete the file. In such cases, the KILL 
routine is called. 

FIP locates a hole (unused blockette) by scanning the 
UFD until it encounters a blockette with zero in word 0 and 
1. This is to be the Accounting blockette and is loaded with 
two dates (today for both), a time (now), an RTS name 
(whatever run-time system happens to be running the cur¬ 
rent job), and the file’s clustersize (which must remain 
constant for the life of the file). The filesize is set to 0 for 
now. The attribute link will be null. 

A second hole is singled out for the distinction of 
becoming the Name blockette. The filename and extension, 
protection code (default unless specified), status byte, open 
counts, and the link to the AB (which is now known) are all 
intialized. The link to the next NB is made null to indicate 
that this is to be the last file in the UFD. The link to the 
Retrieval blockette is made null for now, consistent with a 
filesize of 0. 

The new NB must be linked into the list of existing 
NB's. In order to create this file, the directory has been 
searched and found not to contain a duplicate, an entire 
scan of the NB list has been made. The last NB was noted. 


and will be the one whose link changes from null to point to 
the new guy. If we are now creating the first file in a UFD. 
the Label blockette will effectively play this role. In the event 
that new-files-first is invoked, the scene is only slightly dif¬ 
ferent. The link from the Label blockette is copied to the 
new Name blockette and the LB is then set to point to the 
new NB. 

If the creation did not require that a file of some 
definite size be created, we are done. If so, the procedure is 
essentially an extend operation. Let’s see... 


Extending a File 

The length of a file may be increased by attempting to 
PUT a record that is beyond its last block. Files are always 
extended in increments of their own private clustersize. 
When the file’s clustersize exceeds that of the device, two or 
more adjacent device clusters must be available and proper¬ 
ly aligned to form the required extension cluster. The SATT 
is scanned to locate the correct pattern of 0 bits, indicating 
the cluster is available. As most files are created (and there¬ 
fore extended) by the default clustersize, this really turns in¬ 
to a search for the first 0. 

As clusters are allocated to the file, they are noted in 
the Retrieval blockettes of the directory entry. New RB’s are 
taken from Holes as needed. The two advantages of using 
large clustersizes are fewer window turns and less directory 
space. Even for contiguous files, which completely eliminate 
window turns, choose a sensible clustersize in order keep 
the directory trim. 

A file is extended until its filesize is long enough. If this 
cannot be done the operation ends in error. Usually the clus¬ 
ters can be allocated and the desired filesize is achieved. This 
doesn’t mean that the last cluster allocated is completely 
used. For a new. zero length file having a clustersize of 256, 
PUTting record 6 will cause the filesize to become 6. Al¬ 
though FIP has actually allocated 256 blocks to the file, you 
cannot GET block 7. If the file is extended further, such par¬ 
tially used clusters are exploited completely before new ones 
are allocated. 


Renaming a File 

PIP is commonly used to rename files. The name, exten¬ 
sion, and protection code, and run-time system are easily 
changed. If the filename and extension are not changed, 
there is no great impact upon the remainder of the UFD. 
Any valid protection code, for example, may be rewritten in¬ 
to the Name blockette without concern. Changing the 
filename/extension, on the other hand, implies a search of 
the UFD to ensure that the new filename will still be unique. 
As far as PIP goes, it will leave the file unchanged if the new 
name exists. 

There is another mode in which rename may operate, in 
which a renamed file will supersede an existing one of the 
same name. TECO and other editors use this feature when 
properly exiting an edit session. Assume you have been edit- 
ting PROG.BAS and have done so before so that PROG.BAK 
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also exists. First, TECO will rename (with supersede) 
PROG.BAS to PROG.BAK (forcing the oid PROG.BAK to be 
killed). Then the temporary work file TECOnn.TMP will be 
turned into the new PROG.BAS, again using the rename 
feature. 


Wildcard Directory Lookups 

FIP has a mechanism which allows system and applica¬ 
tion programs to lookup directory entries. To view the en¬ 
tries in a given UFD, the device, PPN, and filespec must be 
specified, typically through SYSQ call. The filespec may op¬ 
tionally contain * or ? characters. In addition, the caller 
must supply an index value greater than or equal to 0. FIP 
will return information on the first file in the UFD that 
matches the filespec if an index value of 0 is given, the 
second match for index = 1, and so on. The SYS() call is 
repeatedly issued with ever increasing index values. When 
an index value greater than the number of matching files is 
attempted an error is returned, indicating the end of the 
directory. 

The procedure followed is essentially the basic directory 
search, but allows wildcard matches and demands that a 
counter equal the index value. PIP issues this FIP call process 
for all its operations. The technique is inherently inefficient 
because, as the index value increases, the entire UFD Name 
blockette list up to that point must be traversed. The DIRECT 
program opens each UFD as a virtual array (as demonstrated 


in earlier articles of this series), but suffers from other high- 
level language drawbacks. 1 know of at least two macro 
directory listing programs which operate by opening a disk 
in nonfile-structured mode and use large buffersizes to op¬ 
timize the whole affair. 

Wiidcard PPN lookups are accomplished similarly by 
suppling a device and one or two * s in the PPN. Here the in¬ 
dex value is again used with repeated SYS() calls to get each 
desired PPN. PIP combines both the wildcard PPN and 
filespec techniques to effect global listings and transfers. ^ 
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TECHNICAL NOTES 

By The RSTS “Pro" Staff 


You will recall that in the last article we 
reviewed methods of doing input and out¬ 
put to simple and more complicated devices 
attached to the POP 11. The data transfers 
were accomplished simply by loading the 
appropriate registers with information and 
then checking other status registers to 
determine what had happened to that 
Information. The simplest example was a 
terminal which has a control and status 
register and a data register. I/O can be 
accomplished simply by putting data into 
the register then checking the control sta¬ 
tus register to make sure that the data has 
either been read or written. 

It is possible to transfer data using 
Interrupt structure available on the POP 11. 
Using the control and status register, it is 
possible to set the interrupt enable bit 
which then causes a processor interrupt 
when data is either read or written. This 
allows the processor to go about other busi¬ 
ness without having to be constantly look¬ 
ing or polling the terminals to determine if 
there is input or output to be processed. 

The next level of input/output also uti¬ 
lizes the interrupt facility, but in this case, 
more than one byte or word of data can be 
transferred at a time without involving the 
processor. This was the so-called cycle steal¬ 
ing mode. In this mode the processor steals 
a cycle or cycles from whatever programs 
happen to be operating and loads into the 
various registers, information necessary to 
transfer one or more bytes of data; then 
returns to the program. When the data has 
either been successfully transferred or an 
error condition has arisen, an interrupt 
occurs from the device. The processor can 
then either steal more cycles in order to 
reload the registers to continue the 
transfer or go off to an error processing 
routine to process the error condition. 

By way of an example, let us examine in 
more detail how a multiple data transfer 
might be accomplished from a specific loca¬ 
tion in memory onto magnetic tape utilizing 
the TU 10 magnetic tape drive. The PDP 11 
Peripherals Handbook describes the oper¬ 
ation beginning on page 4-501 with a de¬ 
scription of the TM 11 controller and the 
TU 10 drive. The first register in the TM 11 
is the status register. Each of the 16 bits in 
this register indicate the status of the par¬ 
ticular drive in question. These include a bit 
for illegal command, end of file, cyclical 


redundancy check, parity error, bus grant 
late error, end of tape, record length error, 
bad tape error, non-existent memory error, 
select tape, beginning of tape, whether it’s 
a 7 or 9 channel tape, whether the tape is 
slowing down, whether the tape Is write- 
locked. the current rewind status of the 
drive, whether the tape unit is ready. In 
addition to the status register, there is a 
command register. This 16 bit register Is 
used to set information necessary for the 
data transfer. It is possible to set the den¬ 
sity of the tape, to clear the tape drive, set 
the parity, select one of 8 units, enable the 
interrupt, set a particular function; that is. 
read or write, space forward or space back¬ 
ward. The final bit is a go bit telling the drive 
controller to begin the operation. A third 
register in the TM 11 is a byte record count¬ 
er. This is simply a 16 bit binary counter 
which is used to count bytes in a read/write 
operation. This register should initially be 
set by the program to the twos compliment 
of the number of bytes to be written on the 
tape. When this register becomes zero 
after the last byte of the record has been 
read or written, a control signal (interrupt) 
is sent indicating that there are no more 
data characters to be read or written from 
the tape. In addition to the number of bytes 
necessary to be transferred, a fourth regis¬ 
ter. the current memory address register, 
contains the memory address at which the 
transfer operation is to begin. Although this 
Is a 16 bit register. It is possible to address 
18 bits of memory. That is because in the 
command register bits 5 and 4 contain the 
two high order bits necessary for address¬ 
ing the 18 bit address space. There are an 
additional two registers, a data buffer and 
read lines register, also in the TM 11. 

In general, the following steps would 
be carried out in order to transfer data from 
memory to the TU 10 mag tape. First, using 
the command register, we would select the 
unit that we are planning to use. Selection is 
simply made by loading bits 10.9 and 8 with 
the drive number we plan to use. After the 
unit has been selected, the status register 
is checked to find out the current status of 
the tape, and back once again to the com¬ 
mand register to enable the interrupt. Since 
we want to write the data on the beginning 
of the tape, we should at this point rewind 
it. Using the command register, bits 3. 2 
and 1 are fijnetion bits. Setting these bits all 
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DEAR RSTS MAN 

. . . continued from page 16 

In the last Issue Peter Dick, Silver Programs, 
London, slipped a question into the "Letters 
to the RSTS Pro"column. RSTS MAN caught 
it and now answers. 

The question . . . How does one reset the 
statistics without the switch register - i.e., 
after RDC have nicked it? 

The answer ... The switch register is accessi¬ 
ble through console emulator commands. 
Specifically, R will read the contents of the 
switch register while nnnnnnW will write ns 
into the switch register. Resetting statistics 
requires switches 15 and 0 to be set to 0. 
Therefore, in console mode OW will write all 
zeros into the switch register, resetting sta¬ 
tistics (and turning them off). 777777W will 
put all ones into the switch register, starting 
statistics gathering again. m 


Send questions to: DEAR RSTS MAN, P.O. 
Box 361, Fort Washington, PA 19034. 
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to 1 indicates that the function we wish the 
tape to execute is the rewind function. 
Finally, by setting bit 0 in the command 
register to 1, the tape will begin to rewind. 
It is not necessary for the CPU to wait while 
the tape rewinds since when the tape is 
rewound (we have enabled the interrupt), 
the TM 11 will interrupt the CPU and the 
status register will indicate that the tape 
has been rewound. Now. seeing that the 
tape is ready by looking in the status regis¬ 
ter. we would set the density and parity to 
the desired numbers, load the number of 
bytes that we wish to transfer into the byte 
record counter, set the memory address at 
which we wish this transfer to begin in the 
memory address register, including the two 
bits that are contained elsewhere, if neces¬ 
sary. set the function bits to 0.1 and 0 for 
bits 3. 2 and 1. respectively, indicating a 
write operation. Then, finally, set the go bit 
to 1 and the flinction will begin. Once again 
the processor goes off to do other func¬ 
tions. When the TM 11 is finished, it will 
interrupt the processor. If the data we wish 
to transfer is not in contiguous memory 
locations, when the current transfer is fin¬ 
ished. the TM 11 interrupts the processor 
which then steals a cycle to load the next 
memory address into the memory address 
register, the number of bytes to be trans¬ 
ferred into the byte record counter, sets the 
go bit and then returns from the interrupt. 
Thus, many data transfers can be made 
from different memory locations by the TM 
11 utilizing only a few cycles of the CPU to 
effect these transfers. 

What happens internally during this 
transfer of data from memory to the TU 
10? Over what paths does the data flow? 
Over what paths do the control signals 
flow? How does the interrupt get back to 
the processor? These paths can vary 
depending upon the peripheral device and 
the POP 11 model in question. Continuing to 
utilize our TU 10 example, the TU Is con¬ 
nected to the unibus of the POP 11. Also 
connected to the unibus are the processor, 
memory, terminals, disks and many other 
types of input and output equipment. All 
data that flows from memory to the TU 10 
flows via the unibus. This includes control 
signals and interrupt signals. Communica¬ 
tion between the two devices on the unibus 
can be controlled by those two devices 
themselves. When the TM 11 is controlling 
transfer between the TU 10 and memory, 
it is in control of the unibus. Since the uni¬ 
bus is used by the processor in many I/O 
devices, a priority structure is used to de¬ 
termine which device can obtain control of 
the bus at any one time. By now we should 
know that all devices attached to the unibus 
have an address, (maybe more than one 
address), an Interrupt vector, as described 


TTOPNF.MAC & TTDVR.TEC 

. . . continued from page 35 


W$NV8P: 

.BLK3 

;N£XT 

VIRTUAL BLOCK MSB 

WSNVBL: 

.BLKU 

;next 

VIRTUAL BLOCK LSB 

W$FCB: 

.BLKW 

;Fce a 

F$CLUS 

W$REN: 

• BLKW 

;retreival entry nuwber 

W$WC8: 

-BLKW 

;next 

WCB THIS FCB * FLAGS 

WSNXTi 

.BLKW 

;f3b of next retreival window 


.BLKW 

; (FROK ABOVE) 

w$wnd: 

.BLKW 

;current window 


.BLKW 

;woRo 

TWO OF WINDOW 


.BLKW 

;word 

THREE OF WINDOW 


.BLKW 

;WORD 

FOUR OF WINDOW 


.BLKW 

; WORD 

FIVE OF WINDOW 


.BLKW 

; WORD 

SIX OF WINDOW 


.BLKW 

;W0RD 

SEVEN OF WINDOW 

-BSECT 


;bits 

FOR FILE STATUS 

US-OUT: 

.6LK6 

;fil£ 

IS PHYSICALLY ON ANOTHER DISK 

US-PLC: 

.BLKB 

; FILE 

HAS BEEN PLACED 

US.WRT: 

.BLK6 

;file 

IS OPEN FOR WRITE ACCESS 

US.UPD: 

.BLKB 

;fil£ 

IS OPEN FOR UPDATE 

US.NOX: 

.BLKB 

;file 

IS CONTIGUOUS 

US-NOK: 

.BLKB 

; FILE 

CANNOT BE KILLED DURING TIMESHARING 

US.UFD: 

.BLKB 

;nahe 

ENTRY IS A UFD 

US.DEL: 

.BLKB 

;file 

IS MARKED FOR DELETION 

-BSECT 


;bits 

FOR W$STS OR DDSTS 


.BLKB 

;0PEN 

NON-FILE STRUCTURED 


.BLKB 

;read- 

LOCK ON FILE 


.BLKB 

;WRITE 

-LOCK ON FILE 

WC$UPD: 

.BLKB 

;UPDATE NODE ON FILE 

WC$CT6: 

.BLKB 

;file 

IS NO EXTEND (CONTIGOUS) 

WC$LCK: 

.BLKB 

;lock 

IS ON IN FILE 

WC$UFD: 

.BLKB 

;file 

IS A UFD 

WC$USE: 

.BLKB 

;WRITE PRIVS GRANTED 

-S3TTL 

TTOPNF - PRINT OPEN FILES FOR USER 


; TTOPNF - PRINT OPEN FILES FOR USER 


; CALL: R1 -> TO CONSOLE DOB 
; BACK: C-BIT SET IF CAN'T DO 


DEF0R6 TTOPNF 


TTOPNF::M0VB 
8IC 
BEQ 
HOV 
BEQ 
BIT 

-.PRVF == 

BEQ 
BIT 
BNE 
SEC 

RETURN 


DDJBN0(R1)^R3 

#^C<63.*2>xR3 

10S 

J0BTBLCR3)^R3 

10S 


# *2 


10 $: 


;;get owning job # *2 
;;ano ensure a valid job 
;;no job# no open files 
;;get job data block pointer 
;;no job# no open files 

«JFPRIV#JDFLG(R3) ;;ARE WE PRIVILIGED? 

. PATCH ** TO 'NOP' so non-priv can do 

10$ ;;no# DON'T show open files 

#DocoNs#DDCNT(Ri) ;;really console device for job? 

DOOPNF ;;yes# go show open files 

;;mark as no good 
;; AND return 


GLOBAL <J0BTBL> 


.ENABL LSB 


UFDMSG::.ASCII XUSER FILE DIRECT0RYX<11> 
NFSMS6::-ASCIZ <11><11>XN0N-FILE STRUCTUREDX<11> 
.EVEN ;THIS could be ANNOYING 


DOOPNF: 

MOV 

R5#-<SP) 

;;SAVE AN IMPORTANT REGISTER 


CMPB 

DDHCR2<R1)#DDM0RC<R1) ;;IS CARRIAGE CURRENTLY RESTORED? 


BEQ 

10$ 

;; YES 


MOV 

R3#-(SP) 

;;SAVE THIS POINTER 


CALLX 

ASCOUT#R5#CRLF 

.0 ;;no# SO restore the carriage 


MOV 

(SP)^#R3 

;;3ET IT BACK 

10$: 

MOV 

JDI0B(R3)#R3 

;;POINT TO THEIR I/O BLOCK 


TST 

(R3)^ 

;;SKIP THEIR CONSOLE TERMINAL 


CLR 

R5 

;;let r5 be the channel counter 

20$: 

CALL 

30$ 

;;OUTPUT NEXT CHANNEL 


CMP 

#15.#R5 

;;PAST LAST CHANNEL 


BGT 

20$ 

;;not yet 


CALLX 

ASC0UT#R5#CRLF 

.0 ;;to make it look good 


MOV 

(SP)^#R5 

;;restore the important register 


CLC 


;;SAY done 


RETURN 


;; AND EXIT 

30$: 

INC 

R5 

;;SET NEXT channel number 


MOV 

CR3)+#R4 

;;GET POINTER TO WCB 


BEQ 

40$ 

;;nothing there# go for next 


BIT 

#1#R4 

;;0DD ADDRESS? 


BNE 

40$ 

;;that's odd# quit 


BR 

50$ 

;;C0NTINUE 

40$: 

RETURN 


;;pre-mature return 

50$: 

MOV 

R3#-(SP) 

;;sAVE this pointer 





page 68 June 1981 

RSTSPROFESSIONAli<STSPROFESSIONALRSTSPROFESSIONALRST5PROFESSIONALRSTSPROFESSIONALRSTSPROFE5SIONALRST5PROI^IONAlJ<STSPROnESSIONALRSTSPROFESSIONALRSTSPROFESSIONAU^^ 


in the first Newsletter article, and a unibus 
priority which is known as bus request level. 

The maximum transfer rate on the uni¬ 
bus using optimum device design would be 
one 16-bit word every 400 nanoseconds or 
2.5 million 16-bit words per second. 
Although at first glance this seems very 
rapid, remember that the POP 11 proces¬ 
sors are capable of executing instructions in 
close to 1 microsecond. Assuming that each 
instruction that the processor executes has 
to be gotten from memory, as would be the 
case in a program, each of these instruc¬ 
tions took 1 microsecond to execute. One 
out of every three words transferred via the 
unibus would consist of the processor get¬ 
ting its instructions from memory, leaving 
only 66% of the unibus available for 
transfer. The word “only" here means 
approximately 1.6 million words per second 
are transferrable via the unibus. Of course, 
the device is never optimum and consider¬ 
ing that one RP04 is capable of transferring 
close to 400,000 words per second, it is 
possible to see how the bus could become 
the limiting factor in data transfers on a 
heavily 1/0 bound POP 11. Referring now to 
the POP 11 /70 Processor Handbook figure 
1.1 on page 1 -2 indicates a slightly different 
architecture available for this model of the 
POP 11. In addition to the regular unibus 
peripherals, which in this case could include 
terminals and TU tape drives, there are four 
high-speed controllers which interface 
themsejves to the unibus. However, the 
only signals that pass over the unibus are 
the control signals and status and interrupt 
signals as described earlier. The actual 
transfer of data occurs via special high¬ 
speed I/O bus to the mass storage periph¬ 
eral. such as in RP04 or a TUI 6 tape and via 
another high-speed bus directly linked to 
a special memory bus through the cache 
memory of the POP 1170. This relieves the 
unibus of the high-speed data transfers 
between memory and peripheral devices. In 
this case at least, data can be transferred 
simultaneously via the unibus and the high¬ 
speed controller bus. sometimes called a 
mass bus, to the high-speed peripherals. 

Since we have reviewed earlier input 
and output operations via TU 10 and TM11 
controller, it is interesting to compare the 
similarities and differences between this 
tape drive and a TJU 16 controller and TU 
16 tape which operate utilizing a high¬ 
speed controller attached to the separate 
I/O bus and high-speed bus directly to the 
memory.ln the first control and status reg¬ 
ister. bit 13 is set by a parity error on the 
control bus although the control bus is not 
the high-speed bus going to the high-speed 
device itself. Parity errors occurring on that 
bus are indicated in another register. The 
second register is a word count register 


60$: 


70$: 


30$: 


90$: 


100$: 


110 $: 

120 $: 


MOV 

MOV 

MOV 

CALL 

CALL 

MOV 

Move 

8EQ 

BIT 

BNE 

MOV 

ADD 

MOVB 

CALL 

CALL 

3R 

MOV 

MOVB 

MUL 

ADD 

MCVB 

TST 

CALL 

CALL 

MOV 

MOV 

SUB 

MOV 

MOV 

CLR 

MOV 

MOVB 

CMP 

BIT 

BEQ 

CALLX 

3R 

MOVB 

ADD 

MOV 

TST 

MOV 

MOV 

SbAB 

CALL 

CALL 

CALL 

CALL 

CALL 

MOV 

BIT 

BEQ 

TST 

CALLX 

BR 

CALL 

BIT 

BEQ 

CALL 

CALL 

CALL 

CALL 

MOV 

MOV 

MOVB 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALLX 

TST 

MOV 

MOV 

RETURN 


R5^-(SP) 

R4^-(SP) 

R5#^-(SP) 

OUTSIZ 

OUTCHR^RS^ <11> 
(SP)^R4 
ySIDX(R4}^R2 
60$ 

R 2^#1 

120 $ 

R2^R5 

#DEVNK3-2#R5 


;;SAVE THIS COUNTER 
;;SAVE POINTER TO WCB 
;;PUT CHANNEL NUMBER ON STACK 
;;0UTPUT THE CHANNEL NUMBER 

;;Noy output a <tab> 

;;get ycB pointer back 

;;is THIS A DISK? 

;;yep 

;;906US INDEX? 

;;quit 

;;C0PY DEVICE INDEX *2 
;;POINT TO NAME IN "DEVNAM* 


DDUNT(R4)/--(SP) ;;SAVE THE UNIT NUMBER 


OUTPNT 

OUTSIZ 

110 $ 

W$FCB(R4)#R4 


;;OUTPUT DEVICE NAME 

;;and unit number 
;;ano continue 

;;P0INT TO FC8 FOR THIS FILE 


F$UNT-F$CLUS(R4)#R4 ;;GET THE FIP UNIT FOR THIS FILE 


A10wR4 

#L0GNAM-f6^R5 

(R5)^-(SP) 

-(R5) 

OUTPNT 

OUTSIZ 

(SP)^R4 

U$FCB(R4)^R4 

#F$CLUS#R4 


;;COMPUTE OFFSET INTO LOGICAL NAME TABLE 
;;P0INT TO UNIT NUMBER 
;;SAVE THE UNIT NUMBER 
;;P0INT BACK ONE WORD 
;;pRINT OUT DISK NAME 
;;pRINT OUT THE UNIT NUMBER 

;;get back wcb pointer 
;;poiNT TO fcb again 

;;P0INT TO TOP OF WINDOW 
F$STATtR4)^-(SP) ;;SAVE FILE STATUS 
FSCLUS<R4)^-(SP) ;;SAVE CLUSTERSIZE 

-csp) ;;for msb as clustersize 

F$SIZL(R4)^-(SP) ;;SAVE FILE SIZE LS8 

f$sizm<r4)^-(sp) ;;sav£ size msb 

-(SP)#-CSP) ;;SAVE two spots for vitual block number 
»DDNF s#ai6(SP) ;;op£N non-file structured? 

70$ ;;S0 ABOUT OUR business if not 

ASCOUT^RSz-NFSMSG ;;PRINT OUT THE MESSAGE 

100$ ;;and go on our merry way 

F$PR0T(R4)^-(SP) ;;G£T PROTECTION CODE 
#F$NAM^R4 ;;P0INT TC FILENAME 

R4#-(SP) ;;SAVE THE POINTER 

-(R4) ;;SKIP THE WORD 

(R4)#--<SP) ;;SAVE THE PPN 

(SP)#-(SP) ;;coPY it twice 

(SP) ;;SWAP FOR project number 

ouTCHR#R5^<*c*400^* > ;;now output a <sp>-c 
OUTSIZ ;;0UTPUT the project NUMBER 

OUTCHR#R5^<*^> ;;AND then a COMMA 
OUTSIZ ;;then programmer number 

0UTCHR#R5/-<11*400+'D> ;;THEN OUTPUT D<TAB> 

(SP)+^R5 ;;P0INT TC FILE NAME 

#<WC$UFD*400>^a20(SP) ;;wAS it just a ufd? 

80$ ;;no# take no special action 

(SP)^ ;;SKIP THE protection code 

AscouT/RS#uFDMSG ;;and say it*s a ufd 
100$ ;;and continue 

FILNAM ;;go print out filename 

#US.DEL^16(SP) ;;are we deleted? 

;;NOPE 

;;OUTPUT A STAR 
OUTCHR#R5^<60-*400^11> ;;N0W OUTPUT <TAB>< 

OUTSIZ ;;PRINT PROTECTION CODE 

0UTCHR#R5#<11*400**'62.> ;;N0W OUTPUT ><TAB> 

16(SP)^R4 ;;restore wcb pointer 

W$NVBL(R4)^2(SP) ;;SAVE VIRTUAL BLOCK LSB IN STACK 
W$NVBM(R4)#(SP) ;;SAVE VIRTUAL BLOCK MSB IN STACK 
;;OUTPUT NEXT BLOCK 

;;now output a <tab> 

;;0UTPUT FILESIZE 

;;now another <ta8> 

;;0UTPUT THE CLUSTER SIZE 
;;D0 FILE STATUS 
ASCOUT^RS^CRLF.O ;;FINALLY restore CARRIAGE FOR THIS TIME 
(sp)^ ;;sKip WCB pointer 

<sp)+^R5 ;;restore channel pointer 

(SP}^#R3 ;;restore iob pointer 

;;exit subroutine 


90$ 

0UTCHR^R5^<**> 


DBLNUM 

0UTCHR^R5#<11> 

DBLNUM 

OUTCHR^R5#<1 1> 

DBLNUM 

FILSTA 


GLOBAL <CRLF.0#L06NAM^DEVNKB> 
.DSABL LSB 

.SBTTL PRINT OUT FILE STATUS FLAGS 
; CALL FILSTA 


; SP -> FILE STATUS BITS 

r 

; R4 GETS CLOBBERED 


.ENABL LSB 


FILSTA: MOV 

(SP)/R4 

MOV 

2CSP)^<SP) 

MOV 

R4/-2(SP) 

CMP 

#US.WRT^(SP) 

BEQ 

50$ 

CALL 

0UTCHR^R5^<11 


;;SAVE RETURN ADDRESS 

;;reset as file status 
;;and reset return address 
;;is THERE status? 

;;nope^ skip it 
> ;;and yet another <tab> 




DA TA BOSS/2 USERS 



LET DBQ break the CHAINing Habit 
and release the full power of your DBMS 

THE DBQ extensions to DB2 let you 

ENTER 

REMOVE 

REPCHN 

records DIRECTLY from your Basic Program 

and ALSO provide: 

Logical record locking 
Journaling 
Corruption proof 

& and, (comma) permitted in key fields 

The DBQ module RTV (an NRTRV1 replacement) 
allows user programs to enter or REMOVE records 
and change key fields (REPCHN) WITHOUT writing 
A.S.C.I.I. files and chaining to a DB2 utility. 

The RTV module is compatible with NRTRV1 and 
olds (Basic +) at just 6K, and expands to only 
8K with 5 open databases (maximum 9K). 

Disk journai and audit trail can be selected for any database. 
Databases updated with RTV cannot be corrupted under 
normal system conditions including powerfails. 

Sort keys (except DRK) can have & and , (comma) characters 

For more information call our computer 
from a 300 baud (103/113 type coupler) 
at (305) 634-7402 

OR WRITE/CALL 

SYSTEMS ASSOCIATES, INC. 

P.O. Box 450429 
Miami, Florida 33145 


(305)634-8114 

(305)447-2695 


Data Bo$$/2 is a licensed product ot Florida Computer. Inc 
99 N.W. 183rd Street. Suite 230. North Miami. Fla 33169 
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which operates exactly like the matching 
register in the TU 10. Also, the unibus 
address register, which really is a memory 
address register, operates in a similar func¬ 
tion to the one in the TU 10, even to the 
degree that the high order two bits are 
contained in the control and status register; 
one in order to give 18 bit addressing capa¬ 
bility. While spacing forvy/ard records or 
characters was controlled in the TU 10 in a 
different fashion, the TU 16 has a different 
frame count register which contains a twos 
compliment number of records to be spaced 
over, characters to be written or characters 
that have been read. There is a second con¬ 
trol and status register. This register con¬ 
tains some additional information including 
bit 8 which is the mass I/O bus data bus 
parity error. This is the error that gets set 
on a parity error indication on the high¬ 
speed bus. The drive status register con¬ 
tains similar information, some additional 
peripheral information. One of the addi¬ 
tional capabilities that the TU 16 has on an 
optional basis is to write in phase encoded 
1600 bits per inch. There is an error regis¬ 
ter in which each of the 16 bits contains a 
certain particular error. An attention sum¬ 
mary register in the controller enables the 
programmer to determine immediately 
which of the 8 drives has interrupted rather 
than looking at the status of all 8 drives of 
the sequence. A character check register 
contains the cyclic redundancy check char¬ 
acter that is used on the TU 16. There is the 
same data buffer register as well as a drive 
type register which allows the program to 
find out what type of drive this is. There are 
also serial number registers containing the 
serial number of the drive and a tape con¬ 
trol register to control the density and for¬ 
mat of the data being written. So. although 
the TU 16 has a few more registers than 
the TU 10. most of the additional data avail¬ 
able is better error checking, increased 
error diagnostic aids and little, if any of it. 
has to do with the difference in architecture 
between the way the data is transferred via 
a high-speed controller. Thus, the fact that 
the TU 16 can operate via a mass bus and a 
high-speed controller is transparent to the 
programmer who has to program applica¬ 
tions for it V 

AUTHORS!!! ] 

SEND YOUR ARTICLES TO THE I 
RSTS PROFESSIONAL ON MAG j 
TAPE, IN EITHER RNO, PIP OR j 
WORD-11 FORMAT. | 

Eighty percent of this issue of the RSTS 
Professional was transmitted via tele¬ 
communications from author’s mag tapes 
to phototypesetting equipment and 
was not retyped. I 



BIT 

#US.N0K^(SP) 

;;PERMANENT FILE? 


BEQ 

10$ 

;;nope 


CALLX 

0UTCHR#R5#<*P> 

;;sAY so 

10$: 

BIT 

#US.N0X#(SP) 

;;coNTiGuous? 


BEQ 

20$ 

;;nope 


CALLX 

0UTCHR^R5^<'C> 

;;sAY so 

20$: 

BIT 

AUS.UPO^CSP) 

;;0PEN FOR UPDATE? 


BEQ 

30$ 

;;nope 


CALLX 

0UTCMR^R5#<*U> 

;;sAY so 

30$: 

BIT 

iUS.UPO!US.WRT#(SP) ;;WE HAVE WRITE PRIVELEGES? 


BNE 

40$ 

;;yes^ so ignore 


CALLX 

0UTCMH#R5^<*R> 

;;iF NOT^ SAY read only 

40$: 

BIT 

fUS.PLC^CSP) 

;;are we a placed file 


BEQ 

50$ 

;;nope 


CALLX 

0UTCHR#R5#<*L> 

;;sAY so 

50$: 

TST 

(SP)^ 

;;get rid of status 


RETURN 


;;ano go back 

•DSABL 

LSB 



.SBTTL 

PRINT OUT SINGLE OR DOUBLE INTEGER 

;DBLNun 

- PRINT 

OUT DOUBLE PRECISION INTEGER 


WITH OR 

WITHOUT LEFT JUSTIFICATION 


SP -> LSB OF INTEGER^ MSB OF INTEGER 


CALL 

DBLNUM 



R2 - R5 

RANDOM 


•ENABL 

LSB 



DBLNUM: 

MOV 

<SP)+^R5 

;;SNAG RETURN ADDRESS 


CLR 

R2 

;;clear a high order 


BISB 

CSP)^#R2 

;;get the high order of the integer 


MOV 

(SP)^#R3 

;;GET THE LOW order 


MOV 

R5^-(SP) 

;;replace the return address 


DIV 

#10000.^R2 

;;SPLIT THE NUMBER 


MOV 

R3^-(SP) 

;;SAVE low order 


TST 

R2 

;;is there a high order? 


BEQ 

10$ 

;;no high order 


MOV 

R2#R3 

;;SET TO OUTPUT IT 


CALL 

20$ 

;;oo IT 


SEC 


;;low order shoulon*t suprress leading 

10$: 

MOV 

(SP)^#R3 

;;do low order now 


CALL 

20$ 

;;OUTPUT THE LOW PART 


RETURN 


;;and go back 

20$: 

CALL 

00DIVS#R5#30$ 

;;go do the divisions# printing ascii 


• WORD 

1000.^100.^10. 



RETURN 


;;exit 

30$: 

MOVB 

50$(R2)^R2 

;;get the numeric 

40$: 

CALLRX 

CHOUTE 

;;0UTPUT THE CHARACTER 


.ASCII 

-$.?- 


50$: 

.ASCII 

"0123456789- 

;;numbers 


.EVEN 



;♦ 

; FILNAM - PRINT OUT A FILENAME 



R5 -> TO THREE FILENAME 

WORDS 


CALL FILNAM^R5 


FILNAM: 

MOV 

#70$^-(SP) 

;;pusH FOR extension 


MOV 

PC#-(SP) 

;;back here once 

60$: 

MOV 

<R5)^#R3 

;;6ET the RAD50 WORD 


SEC 


;;don*t supress leading zeroes 


CALL 

D0DIVS^R5#80$ 

;;go do the divides 


.WORD 

50*50#50 



RETURN 


;;exit 

70$: 

MOV 

#*.#R2 

;;SET TO OUTPUT A 


CALLX 

CHOUTE 

;;and call routine to do it 


BR 

60$ 

;;ano continue 

80$: 

TST 

R2 

;;CHECK FOR A SPACE 


BEQ 

90$ 

;;0UTPUT A SPACE 


ADD 

#•A-1^R2 

;;adjust for alphabetics 


CMP 

R2^#33^<*A-1> 

;;is IT in fact alphabetic? 


BLO 

40$ 

;;vES# 60 USE it 


SUB 

#36><*A-1>#R2 

;;adjust for numeric (zero > o) 


BR 

30$ 

;;go do it 

90$: 

MOV 

#• ^R2 

;;SET SPACE AS CHARACTER 


BR 

40$ 

;;ano output it 


OUTSIZ - PRINT A NUP.BER 0-255 WITH LEADING ZERO SUPPRESSION. 
SP -> NUMBER (HIGH ORDER BYTE IGNORED)^ ... 
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The RDC 
Revisited 

By Carl Marbach 


Some months ago I wrote an 
editorial about some bad experiences 
I had with Digital's Remote Diagnosis 
Center. For the uninitiated, the DDC 
(Digital Diagnosis Center) is a facility 
of DEC that is set up to do Remote 
Diagnosis on 11/44 s, 11/70's, and 
VAX's. They accomplish this feat by 
dialing up your computer's console 
from Colorado Springs, Colorado. 
Once connected they do strange and 
unintelligible (until now) things to 
your computer. Rumor has it that 
they then call your branch field 
service people and send the engineer 
with the right parts to fix your 
problem. Sounds good? Works even 
better provided you follow some 
ground rules, and are willing to help 
out. 

1 was invited to visit the DDC by 
A1 Toussach, who is in charge of Field 
Service Marketing in Maynard. Now if 
you're like me, you didn't know that 
DEC marketed Field service. A1 helps 
to sell DECsystems by selling Field 
service. No one ever sold me field 
service; in fact it is the other way 
around — I sell them. You see 1 like 
my branch, and the branch I had at 
another site; they are responsive, 
helpful, kind, and hard working. I am 
always proud to point to the 15 years 
I have worked with DEC computers, 
and 1 can say that I have had a perfect 
record with field service (I do seem 
gruff at times, and I hate it when my 
machine is down). If I have had a 
problem, they tried to solve it. A case 
in point is the RDC (now DDC) 
problem I had. We solved it. Me, my 
branch, and the DDC. I would like to 
tell you now what I learned so your 
problem can be solved before it hap¬ 
pens. 

First, the DDC is not located near 
SAC, nor is it buried deep inside a 
mountain. It is just off the interstate 
on a beautiful site of many, many, 
many acres that goes right up to the 
Rocky mountains themselves. It is 


i 

CALL 

OUTSIZ 


0 

0 

R2-R4 = 

RANDOM 


0 

SP -> .. 

• 


0^ 




OUTSIZ: 

CLR 

R2 

;;CLEAR THE BUCKET 


BISB 

2(SP)^R2 

;; AND GET THE K SIZE 


MOV 

(SP)+#(SP) 

;;move the return address down 


;cLc 


;;C-BIT=0 FROM 'CLR* ABOVE 

100$: 

MOV 

R2#R3 

;;C0PY THE NUMBER 


CALL 

D0DIVS#RS#30$ 

;;60 DO THE divisions^ PRINTING ASCII 1 


.WORD 

100.^10. 


110$: 

RETURN 


;;exit 

;♦ 

; OUTCHR 

I - PRINT ONE OR TWO CHARACTERS. 


CALL 

OUTCHR^RS 



.BYTE 

BYTE1^BYTE2 

(BYTE2 NOT PRINTED IF 0) 


R2-R5 = 

RANDOM 


OUTCHR: 

MOV 

R5^(SP) 

;;clobber saved r5 with return address 

;♦ 

ADD 

»2#(SP) 

;; then update to real return address 


OUTPNT - PRINT ONE OR TWO CHARACTERS (VARIABLE). 

R5 -> 2 BYTES TO PRINT 

CALL OUTPNT 

R2-R4 = RANDOM 
R5 -> PREVIOUS 2 


OUTPNT: Move 
CALLX 
MOVB 
BIC 
BNE 

RETURN 


<R5)>#R2 ;;GET first CHARACTER 

CHOUTE ;; AND OUTPUT IT 

(R5)^^R2 ;;6ET SECOND CHARACTER (IF ANY) 

f''C<177>#R2 ;; AND TRIM THE SIGN BIT 

40$ ;;0UTPUT second character if one EXISTS 

;;else just exit 


.DSA3L LSB 


DODIVS - DO A SERIES OF DIVISIONS AND EMIT THE QUOTIENTS. 

R3 * NUMBER TO DIVIDE 

C*1 IF LEADING ZEROS ARE TO BE PRINTED 
CALL D0DIVS#RS 

.WORD ROUTINE TO CALL TO EMIT A QUOTIENT 

(QUOTIENT IS IN R2^ MAT NOT ALTER RO^ R1^ OR R5) 
.WORD DIVISOR DIVISOR 2, ... 



return 




R2-R4 

== RANDOM 



NOTE: 

(DIVISOR N % 200) 

MUST BE 0 FOR N >= 2 

.ENABL 

LSB 



DODIVS: 

MOV 

(R5)♦^-(SP) 

;;SAVE THE OUTPUT ROUTINE ADDRESS 


BIC 

-(SP)^(SP) 

;;SAY NOT INTO SIGNIFICANCE YET 


ADC 

(SP) 

;;force significance if needed 

10$: 

CLR 

R2 

;;CLEAR A HIGH ORDER 


DIV 

(R5)+^R2 

;; AND DIVIDE 


BNE 

20$ 

;;result <> say significance starts 


TST 

(SP) 

;;result = o^ is it significant? 


BEQ 

30$ 

;;not yet... 

20$: 

INC 

(SP) 

;;iNDICATE RESULTS ALL NOW SIGNIFICANT 


MOV 

R3^-(SP) 

;;SAVE REMAINDER 


CALL 

a4csp) 

;;CALL THE OUTPUT ROUTINE 


MOV 

(SP)>#R3 

;;restore remainder 

30$: 

TSTB 

(R5) 

;;more? 


BPL 

10$ 

;;yes^ loop 


MOV 

R3#R2 

;;no more divisions^ set final result 


TST 

(SP) + 

;;dump the significance indicator 


CALL 

a(sp)+ 

;;go output final result 


RETURN 

R5 

;; AND EXIT 

.DSA3L 

LSB 




.END 

a:EB*TTDVR.MAC* "U a^A"XCAN*T FIND TTDVR.MAC - ABORTING" 13^T lO'^T EX* 
ET8512 "N ISS-^T a^A"C72L" 155^T 72^T 155^T 74'^T* 
a^A"F0UND TTDVR.MAC - WORKING" 13^T lO^T 
aN"0R6 TTSYST" -1H L ai" 

ORG TTOPNF ;OPEN FILES CODE 

" -1W 

aN"TI$CRR::" a-S"TI$CTT" -IH L ai"; TISCFF - -‘F HANDLER 
" -IH 
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SS"TI$CTT::" L -IM 

ai’Titcrf:: ;;hanole control/f (open files) 

” -1M 

as"BNE *os“ as";;" -i« k 

ai"NOPE» IT IS COKTROL/T OR CONTROL/F 
" -la 

as"AOS:" -IN 81" CHP R2»»’F-100 ;;C 0 NTR 0 L/F NAYBET 

BEO &ot ;;yEP« handle it 

" L ai"50S;" 3L 81" 

60S; CALL MAPPED»R5»TTOPNF ;;60 TRY FOR OPEN FILES 

BR SOS ;;fto sane as control/t 

• -IN aS’TTSYST;" 3L -IN 81" THP0R6 TTOPNF 

TTOPNF: SEC ;;SAY ILLE6AL UNLESS OVERLAID 

RETURN ;; AND EXIT 

UNORS 

• -IN 8N".N0RD 't-lOO" OL -IN 

ai* .NORD 'F-100 ;CONTROL/F (OPEN FILES) 

" -IN aN".NORD TISCCS" OL -IN 31" .NORD TISCFF ;CONTROL/F 

■ -IN 

ET8512 "N ISS^T r2*T 1$5*T 7A*T* 
a*A"CLOSING FILE OUT ..." 13*T 10*T EC 
ET«512 "N 155*T 72*T 1S5*T 7**T' 
a*A"FlNISHED...* 1I"T 10*T EX 

- t 

Continue to work the problem after 1 hour upon 
branch request 


nice. Why here? Well, telephone 
charges are minimized because it is 
very close to the center of the U.S. 

But they admit that it is easier 
recruiting people to the quality of life 
available in the Rocky Mountain 
foothills. There is also unlimited ex¬ 
pansion available on the large site 
they occupy. The DDC shares the 
facility with the telephone support 
group and a disk manufacturing 
facility. Growth has been so rapid 
that there are signs of people being 
moved all over; new desks, new ter¬ 
minals ( some in boxes), new walls, 
and new people. 

I met AI in Denver and we drove the one and one half 
hours to the springs'. The DDC itself is spectacular, it sits 
alone on what appears to be miles of land mostly covered by 
low vegetation. At the end of the land are the foothills of the 
Rockies and the Rockies themselves with Pikes Peak 
standing out like a sore thumb that isnt sore; just pretty to 
look at. I suppose they get used to it. but guys, it sure is nice 
looking. 

Once inside I met Bob Ross, fugitive from Detroit who is 
PDP-11 family manager (see corporate chart). Bob sug¬ 
gested that before we went into detail about the DDC itself 
that I might like a tour of the building and the disk 
manufacturing facility it contains. Warren Shubert was our 
guide through a plant that manufactures RK07’s. pseudo¬ 
manufactures RM03 s and RMOS's (really CDC) and RP06's 
(memorex). They are also making the disk packs for the 
RK07 s in a clean room'. In another 'clean' room they are 
making winchester media, this rcxjrn is 1000 times cleaner 
than the RK07 room! The RP07 winchester (available for 
VAX) looks like a state of the art drive, with a monthly 
service cost less than the RP06 which holds less. The 
manufacturing system is RSTS of course (we're moving to 
VAX. . .) and tracks the process from receiving to final pro¬ 
duction and testing. Testing is done en masse with many 
smaller 11 s. and hundreds of drives seeking forever (on a 
clear disk you can seek forever). Warren showed us the new 
packaging and shipping area that had recently been 
overhauled. They had done a study and found that this area 
was the bottleneck in production. A new system of wrap¬ 
ping. stacking, and moving these large packages around 
was installed and ... now there is another bottleneck 
somewhere else. Slick this is. a small person (female even) 
can move huge amounts of disk packs around in a flash. All 
this confirms how little I know about manufacturing, and at 
the same time how similar manufacturing is to a com¬ 
plicated program. Maybe if I figured out where the bot¬ 
tleneck was in my trial balance I could. . .well, thanks to 
Warren and we went back upstairs. 

Bob and I sat down and went over some of the goals of 
the DDC. The main objective of the DDC was to: 

• Reach a diagnostic conclusion with a recommen- 
-dation within 1 hour 

• Achieve this in 90% of the cases 


After these the DDC also: 

• Can perform/help in PM 

• Installation check-outs 

• Branch Demo's (on request) 

According to Bob. they are getting close to achieving 
the 90% effectiveness that they are shooting for. To you 
and me this means that they will make the correct recom¬ 
mendation to the branch for repair within 1 hour of your call 
about 90% of the time. Great. 

In addition there is a 'hot call' list. 'Hot calls' are for 
VIP's, loud yellers. intermittent problems, and continuing 
problems. You can be put on this list by your branch, who 
will then agree on a plan of action with the DDC. You should 
be an integral part of this plan; if they don't ask you. then 
ask them. Remember, its your machine. Once you are flag¬ 
ged on their data base as a hot call', the DDC will continue to 
follow up on the problem, i.e. if they don't hear from the 
branch or you for a week they will call to find out what's 
happening. 

Why does the DDC work? Mostly because of the people 
who actually do the diagnosis (they get help from the com¬ 
puter of course). Jim Porter gave us a demonstration of ex¬ 
actly how the diagnosis is done. The computer is an 11 /70 
(they have four of them) running RSTS (we re moving to 
VAX). Jim sat at a VT100 and paged through their data base 
showing me various installations including mine. All 
necessary data is stored including your configuration, 
telephone number, contact, contact number, and DDC 
history. The engineer can look at all this to determine how 
to proceed. After looking up your configuration. Jim asks 
the computer (DDC) to connect to the remote location; con¬ 
nection and dial-out (Vadic auto-dialers) is automatic. Once 
connected he can instruct the computer to run through 
several scripts' of diagnostic sessions. There is a general 
check-out script as well as many specialized ones. Jim and 
his fellow engineers know these systems inside and out. you 
are guaranteed to get an expert. Nice is a keyword here, but 
then when they go to lunch they look out at Pikes Peak and 
that is bound to help even my disposition. 

The calls are initially taken by the phone answering 
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group, who are trained to route the calls to the proper 
engineers, and to make you feel good about talking to the 
DDC. 

Located in the middle of this floor is a library of 
documentation that has a microfiche directory. All (or most) 
of DEC'S documentation is here and available to the people 
when they need it. 

Remote Diagnosis involves several groups within DEC. 
They include Field Engineering, The DDC, Remote Diagnosis 
Engineering, Maintainability Engineering, Diagnostic 
Engineering and Central Engineering. All these groups 
together make up the RD concept and bring it to fruition. 
What are they working on? 

• Improve call handling 

• Make the DDC look like a branch 

• DDC movie 

• DDC Notebook (hooray) 

• Host software 

• Diagnostic enhancements 

• Review process for repeat problems, etc. 

• U.S. Technical library 

• System Products telephone support 

• Area support 

• DDC account Rep program 

They are busy trying to improve what is already a good 

deal. 

We ended what had been a most informative day. No 
longer is the DDC a phenomena in the mountains, they are 
made up of some real fine people out to do the best job they 
know how. We can help them do the job by doing a few 
simple things, and knowing a few things about them and 
our machines. Next issue I'll discuss how we can help them 
help us. I also had a chance to visit with the telephone soft¬ 
ware support people and I'll tell you what I saw there. 



THROUGH THESE DOORS . .. " 



THE DDC WITH THE ROCKIES IN THE BACKGROUND 
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ODT.DOC 

By Bob "MACRO MAN" Meyer 

I’m Back! Sorry for missing last month's RSTS Profes¬ 
sional; I wouid have been here much sooner, but 1 had to 
wait for a BP2 Task-build... (snicker!) 

Anyway... We now present your prevously promised 
article on: 

ODT !! 

"What’s he getting us into this time”, your’re probably 
asking. Program bugs have been and will been in existance 
for about as long as programmers, as we all know. And a 
major aspect of programming is. of course, debugging. 
However, when you get yourself a bug in assembly 
language, ya’ got yerself a BUGG! 

We can all deal with messages like: 

Can’t find file or account’ 
or: 

’I/O channel not open’ 

and so on: but the real killers are the ones that say: 

Memory Manglement Violation’ 
or: 

‘Reserved instruction Trap’ 
or maybe: 

Odd Address Trap’ 

Now under normal circumstances, we should never 
have the honor of seeing one of these beauties on our screen 
(unless of course we’re using BP2 ...): but in Macro Land, 
these can become quite a common occurance. as some of 
you have already found out. 

So long ago and far away, one (or more) of my Great 
Ancestors (Forefathers?) in Dec Land devised the infamous 
’Octal Debugging Tool’ (or was it Online Debugging 
Tecnique’...). Well, whatever it’s really called. ODT has 
saved MY life more times than I can count in 16 bits or less, 
so I feel it may be of great assistance to some of you out 
there. (Probably only those of you that make mistakes.) 

Due to time & space limitations. I’m only going to pre¬ 
sent some of DOT’S basic commands, and a few simple ex¬ 
amples. I strongly recommend reading the ODT Reference 
Manual as a supplement to this article. It comes shipped 
with the RSTS and RSX-11 manual sets. 

Other than taking a ’PM Dump’, this is about the only 
way of debugging pure assembly language programs. ODT 
can also be helpful if you’re calling Macro subroutines from 
your favorite high-level language, as many run-time/object- 
time systems aren’t expecting Odd address traps’ from the 
code generated by the respective compiler. 

Some of the things we can do with ODT are: 

Examine/alter the contents of any memory 

location available to our program. 

Examine/alter our own General Registers. 

Set breakpoints’ within the program, (much 

like the Basic Stop’ statement) 

Single-step through the program. 


Remember. ODT’s functionality goes a good bit beyond 
this list, so leaf through the manual when you feel your get¬ 
ting the hang of what we’ve covered here. 

I usually find it easier to explain things with an exam¬ 
ple, so I’ll wait while you key in the small program in Figure 
1 ... 

Good! Your typing’s getting a little better. 

Here’s how to assemble the Demo program: 

MAC DEMO,DEMO = DEMO 
and to link the task and ODT together: 

TKB DEMO/DA,DEMO = DEMO 

The ’/DA’ switch on the task image instructs TKB to 
link in the Debugging Aid. This is ODT.OBJ. and should exist 
in LB:SYSLIB.OLB. If it dosen’t. the task builder will let you 
know. 

Before we go on. you should PIP out the .LST & .MAP 
files you just created. These will be useful, and may even 
start to make sense after a while. 

You can now 

RUN DEMO 

and on your screen you should see: 

ODT:DEMO 

That’s ODT letting us know he’s linked in (and has con¬ 
trol of your task), as well as the name of the task being 
debugged, and finally, his prompt. 

The only other thing you’ll need to know is that ODT 
talks with your terminal in Binary or single character input 
mode: (also known as ODT submode’ or ’DDT Submode’ to 
us old DEC-10’ers). This means that he looks at each 
character as you type it in: the Return key is not needed to 
send commands to ODT. and in fact has the function of 
change the contents of memory (only in your own 
workspace, of course), so be careful not to hit it out of habit. 

Also note that ODT, being designed for Macro minded 
folks like us. displays and accepts ALL numbers in OCTAL. 
This will take a bit of getting used to. but when dealing with 
a 16 bit machine, makes good sense. One of those new¬ 
fangled Octal/Decimal & Hex calculators would be helpful, 
or TECO has the ability to convert between octal & decimal 
very nicely. 

If you’ve typed in the Demo program, you can try some 
of the following commands. 

First, let’s look around in memory a bit. To examine a 
single memory location, we use the ’/’ character as follows: 

_2000/ 000007 

(remember, no return after the slash) 

That command shows us the contents of memory loca¬ 
tion 2000 (octal) relative to the start of our task image. If 
you typed in the program as printed, you should see a seven, 
which corresponds to the following line in the source: 

ONE:: .WORD 7. 

To look at any location in our workspace, type that 
memory location followed by the slash. If you try to examine 
something out of the range of your task, the results will 
look like this: 

_150000/ ? 

indicating that the address is out of range. No harm is done. 

... continued on page 77 


ODT.DOC 

By Bob "MACRO MAN" Meyer 

Insert for page 74. RSTS PROFESSIONAL. June 1981. 

Dear Readers: 

We re pleased to present [HOT OFF THE PRESS], Figure 1. 


•title 

demo 


one:: 

.word 

7 

two:: 

.word 

6 

demo:: 

mov 

one.rO 


add 

two.rO 


bpt 



.end 

demo 


FIGURE 1. 









With LSI11/PDP11 Software 
Compatible Disc/Tape Con¬ 
trollers Offering Single 
Board Low Power ^P Based 
Design and Low Cost... 

Plus Many Other Good Reasons! 

The reasons start with DILOG’S (Distributed Logic 
Corp’s.) full time engineering and design staff. Not 
outside suppliers. That means when you contact DILOG 
for product selection or after sale service, you’ll get “first 
hand” assistance.. .along with years of experience 
manufacturing fiP based controllers that interface with 
DEC 11 CPUs. 

The intelligent products you’ll discuss all utilize 
common proprietary architecture and DILOG automated 
design techniques—products with exceptional reliability 
and cost efficiency... mostly available from stock. And 


when you plug a DILOG con¬ 
troller into your DEC CPU it’s 
ready-to-run because it’s fully 
operating system software 
compatible. 

These high performance 
data storage interface products also feature • minimum 
bus/space requirements • up to 60% less power • 10 to 
50% lower cost • automatic self-test... and numerous 
other features for easy system integration. 

Consult the DILOG/disc-tape compatibility table for 
your needs. Then ask for detailed data on existing, or 
future products from DILCG...#1 in single board DEC 11 
compatible disc/tape controllers. 

Distributed Logic Corp., 12800<B Garden Grove Blvd., 
Garden Grove, CA 92643, Phone: (714) 534-8950 • 

TELEX: 681 399 DILCG GGVE 



DISC/TAPE DRIVE MANUFACTURER COMPATIBILITY CHART 



MAGNETIC TAPE 


DISC 


Vi" REEL-TO-REEL 
STD. & STREAMER 


231S/S440/RK0S 
CARTRIDGE CLASS 


CMD 

CARTRIDGE MODULE 


SMD 

STORAGE MODULE 


WINCHESTER 
5y4',8"OR 14" 


DISTRIBUTED 
ILDCIC [ORP. 


•Trademark Digital Equipment Corp. 


See all the new DILOG products 
NCC '81 BOOTH 5007 - 5009 
CONCOURSE LEVEL • McCORMICK PLACE 


AMPEX 

CIPHER 

CONTROL DATA 

DIGI-DATA 

KENNEDY 

MICRODATA 

PERTEC 

TANDBERG DATA (IDT) 

WANGCO 

TDX 


AMPEX 
CAELUS 
CENTURY DATA 
CONTROL DATA 
DEC 
DIABLO 
lOMEC 
MICRODATA 
PERTEC 
WANGCO 
WESTERN DYNEX 
DRI 


CAPACITIES 2.5 TO 300 MB 


AMPEX 

CONTROL DATA 


AMPEX 

CENTURY DATA 
CONTROL DATA 
BALL COMPUTER 
MITSUBISHI 


BASF 

CONTROL DATA 

FUJITSU 

KENNEDY 

MEMOREX 

PRIAM 

SHUGART 

SEAGATE 

QUANTUM 

IMI 
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THE RSTS/E BENCHMARKS. Part I 

. . . continued from page 12 

you can reproduce on your own system. This will allow 
you to compare your configuration with those 1 use. 
This is one of the important techniques of benchmark¬ 
ing creating easily reproducable tests'. One of my 
favorites is the building of the RSTS/E cusps, a 
benchmark I've run on a variety of configurations. 

Having written several times on performance 
evaluation and non-hardware methods to improve per¬ 
formance (file characteristics, caching, etc.) I will be tak¬ 
ing some of those theories out of the classroom and into 
the laboratory to show the results of efforts I and 
others are promoting (such as well-structured disks). 

1 am also going to try and test as much new hard¬ 
ware as I can get access to — the 11 /44 and 11 /24 will 
be primary targets as will some non-digital hardware 
such as solid-state swapping disks and replacement ter¬ 
minal multiplexors. 1 hope the trip down benchmark 
lane will be enlightening for all of us. V 


FREE SOFTWARE COULD BE 
PICKING YOUR POCKET. 



When the software you get with 
your PDP-11 purchase is 
not powerful enough, 
or specific enough, to 
handle your work,you’ll 
pay in increased pro¬ 
grammer time and system 
resources. That’s why we devel¬ 
oped WAFE, the program and file edi¬ 
tor that’s as strong as our WORD-11 word processing system. 
Come to the experts for PDP-11 
software or turnkey systems. 




I>ata Processing Design. Inc. 
. .. EflgflflSD , 


181 W. Orangethorpe, Suite F, Placentia, CA 92670, (714) 9934160. 


CASE -1578 C.M. 

By Joel Schwartz, M.D. 


One cold February night in 1979 I received a call from a 
man asking for help. His voice was filled with anxiety. "Doc¬ 
tor, I'm at a WITTS end." "I can't take it anymore." "Tell me 
about It." I responded In my best psychiatric tone. "First I 
couldn't get the bird In the cage, then I couldn't get the clam 
through the door, and now I'm at WITTS END." he replied. 
There was no question about it, this man needed help. Til 
come right over." I said, slamming down the phone. "Where 
are you going?" asked my wife. "I have an emergency, 
something about a bird and a clam. I'll be back within the 
hour." When 1 arrived, it was almost too late. The man was 
pushing up <CR>, down <CR>, North <CR>, South 
<CR>. East <CR>, West <CR>, in a perseverative 
fashion. "Can you help him?" begged his wife. "Please save 
our daddy." Sobbed the children. 1 told everybody to leave 
and then I locked the door. This case would take all the skill I 
possessed. 

"How did this begin?" I said, sitting down beside the 
man. He looked up at me, his glassy eyes showing pain and 
frustration. "Somewhere nearby is a colossal cave" he mut¬ 
tered softly, "where others have found fortune and treasure 
in gold, but some who have entered have never been seen 
again." "Very interesting” 1 said, nodding my head and 
stroking my beard. He continued. "You start in a small brick 
building which is a well house for a large spring. You must 
try to find your way into an underground cave." "Hmm", I 
hmmd. "And where is this cave?" His face brightened up 
and his arms flew wildly into action as he began to push all 
sorts of keys. "Look" he said, pointing to the screen. Instruc¬ 
tions and the beginning of this so called ADVENTURE game 
appeared before me. "Sit and play." he said emphatically. 
Not wanting to upset him more, I sat down and began. 


YOU ARE IN FRONT OF A BUILDING. AN OLD WELL 
HOUSE, A STREAM FLOWS NORTH. "Punch in " he said, and I 
did. INSIDE THERE IS A LAMP, SOME KEYS. A BOTTLE. 
SOME WATER. AND SOME FOOD. "Take it all." he said. I'll 
just play along. Take all. ALL HAVE BEEN TAKEN. "Go out." 
I typed In "Out". "YOU ARE NOW OUTSIDE." "Go 
downstream." I was becoming annoyed, "Let me do this 
myself!" I said. Downstream. YOU ARE IN A VALLEY WITH 
STEEP ROCKS. Up <CR> . YOU ARE AT A STEEL GRATE. IT 
IS LOCKED. "Hey Doc. I feel much better now." Open grate. 
THE GRATE IS OPENED. "Doc, you can go now. I'm fine." 
"Thanks." In. YOU ARE IN A NARROW EASTWEST 
PASSAGE. " Hey Doc. I'm OK. Look. Doc." WEST <CR> . YOU 
ARE IN A CAVERN WITH ROCKS, ROCKY WALLS. ON THE 
FLOOR IS A CAGE. Take cage. TAKEN. "Doc, speak to me. 
Doc. speak to me.” West. East. Up . . . 


HELP! The doctor needs help with 


DUNGEON 


Please write care of: RSTS Professional. Box 361. Ft. Washington. PA 19034. 
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ODT.DOC ... continued from page 74 

Let's look at our program in memory. The task builder 
map tells us that the program occupies memory starting at 
location 2000. So one way to look at it would be to type: 

_2000/000007 

_2002/000006 

and so on. An easier way to look at successive memory loca¬ 
tions is to use the Line Feed key. Line Feed means close the 
current location, and open the next sequential location'. So 
we could also do it this way: 

_2000/000007 <LF> 

_2002/000006 < LF > 

_2004/016700 

and continue to the end of the program. 

If we want to look at a large chunk of memory, we can 
use the L' command: 

2000:201 OL 

002000 /000007 000006 016700 177770 066700 

Although that's not a REAL large chunk, you get the 
general idea, (and I don't have to type all those numbers 
in...) 

We can also use the slash to look at our registers. This is 
done by typing a '$' followed by the register we wish to ex¬ 
amine (0-7): 

_$ 0/000000 

Lord only knows what'll be in them, until you put 
something there. 

Since the BPT (breakpoint) instruction in our program 
will be intercepted by ODT, we can issue the 'Go' command, 
and watch our demo fly! 

_G 

BE:002014 

BE' means ODT picked up a breakpoint. He prints the 
location of the breakpoint, and returns control to us. At this 
point, we can check to see if our addition worked by looking 
at the contents of register 0: 

_$0/000015 

and as we all know, octal 15 is decimal 13. so it seems that 
the hardware really CAN add. 

If you'd like to see that in slow motion, we can single- 
step through the program. First let's exit and start over: 

_X 

Ready (or '>' or '.' or whatever...) 

RUN DEMO 

ODT: DEMO 

to single-step, simply type the letter 'S' for each instruc¬ 
tion you wish to step through. ODT will allow your program 
to execute one complete instruction, then return control to 
you: 

_S 

8B:002010 

'8B' is basically the eighth' breakpoint, which ODT uses 
for single step mode. The number printed is the address of 
the NEXT instruction to be executed. 

Now let's ALTER the program a bit with ODT. Exit (X) 
and re-run the program. This time we ll modify one of the 
constants, proceed with program execution, and check the 
results: 


Don’t buy a VAX ... 

Call MACRO MAN 

for superior performance 
RSTS internals 
custom Macro programming 
RSTS or 11/M 

SPECIAL OFFER 

MACRO SYSTAT-V7.0 
super speed, ‘no’ load, great features 
send $40 and installation name 

MACRO UTILITY LIBRARY 
build your own! — call for information 


Bob ’Macro Man’ Meyer 

9 Lockwood Avenue 
Reldsboro, NJ 08505 
609-298-9127 


0DT:DEM0 

_2002/000006 3 < CR > 

we got the address of the symbol TWO' from the task 
builder map (near the bottom, under GLOBAL SYMBOLS:') 
when ODT shows us the value contained there, we can 
modify it by typing the OCTAL number to put there, fol¬ 
lowed by CR . Now let's see the results: 

_G :the GO command 

BE:002014 :the BREAKPOINT instruction 

_$ 0/000012 

examining register zero reveals octal 12. which is decimal 
10 . 

In a real debugging situation, we may wish to alter in¬ 
structions as well as data, without re-assembling 8i task 
building the program: this can be done as well. Now we'll 
change the ADD instruction into a subtract we know the 
start or TRANSFER address of the program from the task 
builder map. so let's first find the ADD instruction: 

ODT:DEMO 

_2(X)4/016700 LF :keep looking till we find it. 

_2006/177770 LF 

_2010/066700 166700 CR ;that s the add. 

Once the ADD instruction is found, we replace it with a 
SUB (166700 (I did mention having a Processor Handbook 
handy, didn't 1?)) followed by a return. Now if we Proceed 
and look at the results, we should see: 

_G 

BE:002014 

_$ 0/000001 

The correct answer, 1. 
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Last of all. I’ll give a simple example of how to set 
breakpoints in your program. Breakpoints give us the ability 
to monitor and/or control the execution of the program, by 
halting the task at a location which we specify. Let’s first 
make a small modification to our demo program remove the 
BPT instruction, which will cause the program to loop in¬ 
definitely. Now rebuild the task as before, and fire it up: 
RUN DEMO 
ODT:DEMO 


Looking at the task builder map (under MEMORY 
ALLOCATION SYNOPSIS:’), we can find that our program 
( DEMO’ if you used the ’.TITLE’ directive in the begining of 
the source, else ’.MAIN. ) begins at memory location 2000. 
Now refering to the Macro listing, a nice place to stop the 
task would be just before the instruction BR START’. This 
instruction (according to the listing) starts at 14 (octal) from 
the top of the task. Since 2000 + 14 = 2014, we could set the 
breakpoint as follows: 

_2014:B 



PDP 

VAX 

11 

11/780 


WE SPECIAUZE IN DEC 
HARDWARE, CABLES 
COMPLETE SYSTEMS 


To start the program on 
it’s way, we GO as before: 

_G 

0B:002014 

OB’ means we’ve stopped 
at breakpoint 0. (we have 
from 0-7 available) and the ad¬ 
dress of the next instruction to 
be executed is printed. As 
before, we can check the 
results: 


$0/000015 


SAVE 

SAVE 

SAVE 

IMMEDIATE DELIVERY 


NEW AND USED 
ALL EQUIPMENT 
CARRIES 30 
DAY WARRANTY 


WE BUY SELL 
TRADE AND 
APPRAISE ALL 
USED COMPUTER 
EQUIPMENT 


MEMORY 

OPTIONS 

MODULES 



MIM-COMPUTER BROKERS 

SEVCO, INC. - 200 SW CUTOFF; NORTHBORO, MA 01532 
(617) 393-3025 / TWX 7103476527 


Change values (or instruc¬ 
tions): 

_2000/000007 2 

And PROCEED (always 
proceed after breakpoints, not 
GO): 

_P 

0B:002014 

And remember, the ONLY 
way out of ODT is X: 

_X 

Ready 

That sums up what I 
wanted to cover here. Again, 
there’s a LOT more to ODT 
than what you’ve seen here, so 
if you intend to use it to it’s 
fullest extent, I suggest 
reading the manual. 


GOOD LUCK 
WITH YOUR 
BUGGS! 


f 




















PDP II USERS 

WANT AN ALTERNATIVE? 
YOU CAN HAVE ONE 

with computer 
maintenance 

lYMSHUE 



• Maintenance Provided on PDPII Systems 

• Mixed Vendor Systems Is Our Specialty 

• Servicing Most Major U.S. Cities 

Don’t wait untii your system is down again. 

For more information write or cail now! 

Return to; Tymshare Inc. • 1513 E. Del Amo Blvd. • Carson, CA 90746 or call 213-638-0574 


YOUR NAME 


YOUR TITLE . 


COMPANY NAME. 


ADDRESS. 


PHONE NO. 


□ 1 WOULD LIKE TO BE CONTACTED 
BY TYMSHARE TO DISCUSS MY 
MAINTENANCE NEEDS IN MORE 
DETAIL. 

□ I WOULD LIKE A PRICE QUOTE ON 
THE COST TO MAINTAIN MY 
COMPUTER SYSTEM 

TYPE OF MAINTENANCE COVERAGE 
YOU DESIRE (CHECK ONE) 

□ 8 am to 5 pm Monday through Friday 

□ 8 am to 8 pm Monday through Friday 
D 24 hour Monday through Friday 

CH 24 hour, 7 days per week 

□ Per Call Only 

D other — Please indicate beiow; 


MY PRESENT CONTRACT EXPIRES 


EQUIPMENT TYPE QUANITY EQUIPMENT TYPE QUANTITY 
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ADDRESS FOUR MEGABYTES WITH AN 11/34 


May. 1981 

ABLE34 MAGNUMTMAND44 MAGNUM TM BRING COM¬ 
PATIBLE ALTERNATIVES TO DEC SYSTEMS 
MARKETPLACE 

Irvine. California — ABLE Computer has entered the com¬ 
puter systems market with the introduction of 34 MAG¬ 
NUM and 44 MAGNUM. Both are high performance and 
high reliability alternatives to existing Digital Equipment 
Corporation computer models while maintaining hard¬ 
ware/software compatibility. The 34 MAGNUM provides 
significantly enhanced PDP-11/34 class performance 
while the 44 MAGNUM performs as an economic alterna¬ 
tive to the PDP-11/44. Both ABLE computers evidence 
design emphasis on system integrity and application with 
stringent up-time demand. 

Standard system configuration for the ABLE alterna¬ 
tives consists of a CPU with fioating point and memory 
management serial console interface, extended memory 
addressing to 4M bytes, dual TU58 cartridge tape units 


including interface, programmable line time clock boot¬ 
strap loader. 8K byte cache memory, microcoded ODT and 
maintenance console. The 34 MAGNUM comes with 256K 
bytes of memory, the 44 MAGNUM with 512K bytes as 
standard. Other ABLE Unibus compatible controllers are 
optional. Several standard MAGNUM items such as fioat¬ 
ing point, cache arid the integral tape units are extra-cost 
options on certain DEC equivalents. 

The two ABLE MAGNUMS are designed for high 
commercial reliability and dependability. They fill the qual¬ 
ity gap between DEC models and those intended for MIL- 
SPEC operation. Mean-TIme-to-Repair has been reduced 
to a minimum by features such as easy accessibility, a 
built-in front panel voltmeter and display of critical sig¬ 
nals on the front panel. Other important features include 
a bus bandwidth greater than the alternatives, inexpen¬ 
sive loading of diagnostics or software updates and self- 
adaptive remote sensing of the power supply. 

The ABLE 34 MAGNUM and 44 MAGNUM are sup¬ 


ported by RSTS/E. RSX-11M and RT11 software operat¬ 
ing systems as authorized by DEC. Both systems optimize 
embedded DEC CPU s in a stylish rack mountable chassis 
24.25 inches deep. 17 inches wide and 10.5 inches high. 
U.S. list prices are $21,000 for the 34 MAGNUM and 
$27,000 for the 44 MAGNUM, according the user lower 
prices than those of the DEC equivalents. Delivery is less 
than 60 days ARO. another important advantage for the 
user. 

ABLE is the world s largest independent supplier of 
enhancement interfaces for the VAX, PDP-11. System 20 
and LSI-11 series of computers. The company manufac¬ 
tures an extensive line of communications, memory and 
general-purpose products of all which are hardware com¬ 
patible with and software transparent to the host 
machine. They are supported and serviced worldwide 
with offices and plants located throughout the United 
States, as well as In England. Germany and Puerto Rico. 


ENABLE/34 allows expansion of main memory up to four million bytes for 
existing PDP-11/34* RSTS/E systems. 



FEATURES 


• ENABLE/34 is a hardware/software solution for extending the address 
space of an existing PDP-11/34 series machine to 4 megabytes of 
main memory: 

f- Substantially increases system throughput 

■h Allows all currently executing programs to remain memory resident 

+ CPU speed becomes the only performance limiter. 

• ENABLE/34 is implemented simply by a RSTS/E software enhancement 
supplied and supported by ABLE; 

-I- Installation and removal of software are accomplished by an AUTO¬ 
PATCH procedure 

f- System can be tested, maintained, and operated with ENABLE/34 
or as a standard PDP-11/34 system. 

• ENABLE/34 is a most effective alternative: 

If your replacement system will not be delivered when you need it, 
or 

-I- If your budget does not yet support the acquisition of a larger 
system, or 

f- If you simply wish to optimize your existing investment. 

• Present memory can be used in concert with the added 22-bit memory 
or memories. 



GENERAL DESCRIPTION 


The ENABLE/34 consists of the ENABLE CONTROL, the BUS 
ISOLATOR, an optional cache memory, and unbundled software. 

The ENABLE CONTROL is a single, modified hex-width board that installs 
In the second slot of any DD1 1-CK or DD11-DK system unit. It Is con¬ 
nected to the processor simply by standard Unibus cable. All DMA 
devices are connected to the Unibus in front of ENABLE/34 to allow I/O 
mapping to occur. 

The BUS ISOLATOR is a single, modified dual-width board. It is provided 
to allow the use of up to 256K bytes of installed 18-bit addressable 
memory. 

The ENABLE CACHE is a quad-width board that installs in the first quad 
SPC slot of a system unit. The CACHE contains 8K bytes of high speed 
memory that can significantly increase the throughput of your system. 

Note that the ENABLE/34 is not intended to replace newer or larger 
machines. It is designed to upgrade existing systems. 


•Trademark of Digital Equipment Corporation 

ENABLE and ENABLE/34 are trademarks of ABLE Computer 

We reserve the right to improve our products at any time 
10042X08-0561 M 











































They're the world's leading supplier of general 
purpose minicomputers. And they make equipment 
recognized for its high technology. 

Th^ also sell it at very high prices. 

You can do better. 

You can select from a wide range of disk drives— 
some with more capacity and more efficiency than 
anything DEC is offering. For instance, our DRM05 
300 MB drive was available a year ahead of DEC. 
And our DRM07 600 MB drives are being installed 
now—again, ahead of any DEC announcement. 
And, you can choose from subsystems that include 


tape decks, add-in or add-on memory, multiplexers, 
disk drive controllers, and more. 

All are media compatible. Software transparent. 
Easy to install. In fact, most of our peripherals come 
from DEC'S own suppliers, but we offer them at a 
fraction of DEC'S prices. For example, their RM05 
drive (CDC's 9766) is listed at $34,000; while an 
identical drive, our DRM05, is available for $17,000. 
That's half DEC'S price. 

We're Data Systems Services. And we're the 
people who can do what we believe DEC can't; 
solve your DEC problems. 


DSS: Whenever you need DEC, call us. 

DEC IS a registered trademark of Digital Equipment Corporation 
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RSTS/E MONITOR INTERNALS 

Part 2 

By Mike Mayfield, Northwest Digital Software, Box 2-743, Newport, WA 99156 


This is the second in a series of four articles describing 
the internal structures and operation of RSTS/E V7.0. The 
last article described the job control structures used for each 
active Job. This article will describe the control structures 
necessary to control the memory used by a job. 

My goal in writing these articles is to provide a com¬ 
plete description of the internals of the RSTS monitor in a 
format that is understandable to someone who is not a 
systems programmer. By using this information you can 
better understand what RSTS is attempting to do for you 
and work with it, instead of against it (alas, the normal 
case). The result should be an overall improvement in 
system performance and a more informed user who can in¬ 
telligently interact with DEC on technical questions. 

This may seem like a lofty goal, but judging from the 
responses I’ve received from the first article, it can be 
achieved. However, I need your help. Please let me know 
what you like and don’t like about these articles. Your input 
will be useful in writing the next articles as well as in some 
others I have planned for the future. 


2.0 MEMORY CONTROL 

Memory is used for many different purposes. The 
monitor and cache buffering use a large chunk. Runtime 
systems and resident libraries take their toll. And. of course, 
let’s not forget application programs. They are what we 
bought this machine for in the first place. 

With all these demands on memory, RSTS has to make 
some pretty smart decisions to control this resource effi- 


The memory control sub-block is defined as follows: 
Offset Symbol Description 

0 M.PPRV Pointer to the previous memory control 

list at offset M.PNXT. 

2 M.PNXT Pointer to the next memory control 
sub-block in this memory control list. 

4 M.TSIZ Number of K-words mapped by this 

MCB. This size includes the amount of 
memory used by the structure which 
contains this MCB plus any available 
memory that follows it. 

6 M.SIZE This byte contains the number of 

K-words in use by the structure con¬ 
taining this MCB. This size subtracted 
from M.TSIZ yields the number of 
K-words following this structure which 
are available for other uses. 

7 M.CTRL This byte contains the memory status 

information about the portion of 
memory mapped by this MCB (see 
2 . 1 . 1 ). 

8 M.PHYA This word contains the physical start¬ 

ing address of the piece of memory 
mapped by this MCB divided by 64. 


2.1.1 M.CTRL — Memory Status Information 

The memory status information bits contained in 
M.CTRL are defined as follows: 


ciently. The primary way it provides this control is through 

Bit 

Symbol 

Description 

memory control sub-blocks. 

8 

REQ 

Residency is requested but the MCB is 
not linked into RESLST because it is cur¬ 
rently being swapped out. 

2.1 MCB — MEMORY CONTROL SUB-BLOCKS 

9 

OUT 

Entry should be removed from memory 
or is currently removed from memory. 

The available memory on a system is typically broken 
into many pieces, each being used for a different purpose. 

10 

11-13 

IN 

Entry should be brought into memory. 
Unused 

Memory control sub-blocks (MCB) are used to keep track of 
each of these pieces of memory. 

14 

SWP 

A swap is desired. OUT and IN determine 
the swap direction. 

An MCB is not a structure by itself. It is a part of other 
structures that describe functions which use memory, such 
as the job data block (JDB). The structures which contain 

15 

LCK 

The memory segment described by 
M.SIZE is not available for allocation for 
other uses or swapping out. 


memory control sub-blocks are: job data blocks (JDB), run¬ 
time system descriptor blocks (RTS), library descriptor 
blocks (LIB), the RSTS monitor. XBUF, locked out memory 
and non-existent memory. 

The memory control sub-blocks are always in one of 
three states: (1) linked into a list of current memory users, 
(2) linked into a list of structures that desire memory, (3) not 
in memory and not desiring to come into memory. 


Some typical combinations of bits in M.CTRL are: 

LCK, SWP, OUT The entry is resident but should be swap¬ 
ped out. 

LCK, OUT The entry is in the process of swapping 

out. 

LCK, SWP. IN The entry has been allocated memory and 
should be swapped in now. 


LCK, IN The entry is in the process of swapping in. 

LCK The entry is not available for swapping 

out. 

OUT The entry is not currently in memory and 

does not desire to be made resident. 


2.2 MEMLST — RESIDENT MEMORY LIST 

All of the memory on a system is defined by the resi¬ 
dent memory list, MEMLST. As memory is divided among 
several different usages the memory control sub-blocks for 
each usage are linked into MEMLST in ascending order. 
Thus, by following the links between each MCB we have 
seen all available memory in the order it is allocated. 

The memory control list is based at the location 
MEMLST. This location is the address of the first entry in the 
memory control list, rather than a pointer to the first entry 
as in most other linked lists. The first entry describes the 
memory used by the monitor and any free memory follow¬ 
ing it. 

The memory control list always contains at least three 
entries. These are the root MCB. the system default runtime 
system, and the tail MCB. The root is actually the monitor 
MCB. The tail terminates the list and shows the highest 
memory location addressable on the system. 


2.2.1 Root Memory Control Sub-Block 



qEC • • 


• , LA180 

POP 11 /03 

;OP 11/23 

SYSTEM® 

MOOOl.es 

^ Delwerv 

Demand. • 

Demand.. ’ 

Demand.. —■ 


...x oa1.9A00 




The first entry in the resident memory list is the root 
MCB. This entry starts at location MEMLST and describes 
the memory used by the monitor and any free memory foi- 
lowing it. 

The format of the root MCB is as follows: 


Offset Symbol Description 


0 

2 

4 

6 

7 

8 


M.PPRV The link to the previous entry is 0 since 
this is the first entry in MEMLST. 

M.PNXT Pointer to the next entry in MEMLST. 

M.TSIZ The total of the monitor’s size plus any 
free memory following the monitor. 

M.SIZE This byte contains the size of the moni¬ 
tor in K-words. 

M.CTRL The status bit LCK is set to show that 
the monitor’s memory is not available 
for other uses. 

M.PHYA The starting physical address is 0 since 
the monitor always starts at location 0. 


2.2.2 Tail Memory Control Sub-Block 

The tail MCB is the last entry in MEMLST. It terminates 
the list and defines the highest memory address available on 
the system. The format of the tail MCB is: 

Offset Symbol Description 

0 M.PPRV The backwards link points to the pre¬ 
vious entry in MEMLST at its M.PNXT 
entry. 


Hardware Accessories 
For DEC Equipment Users 


C-XX Overtemperature Protection System 

Standard DEC PDP 11, VAX, and System 10-20 ma¬ 
chines are NOT adequately protected from equipment 
damage due to high machine room temperatures. 

This unit provides aural warning signal and total system 
power shutdown with two customer adjustable tem¬ 
perature limits and approved interface to standard 
DEC AC power control system. 


B-11 CPU Speedup for PDP 11/45 and 70 

This timing generator modification allows 11/45 or 
11/70 CPU instruction throughput rate to be increased 
by up to 15%. 

Both products are attractively priced, install In a few 
minutes with no special tools or skills, and are allowed 
by DEC Field Service in contract systems. Call or write 
for further information. 


Nassau Systems 

PO. Box 19329 
Cincinnati, Ohio 45219 
(513) 231-1283 



DEC, VAX, and PDP are trademarks of Digital Equipment Corp. 
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We have the 
key to your 
database! 


The Generalized 
Reporting System 



C5R5 unlocks the true potential of your database: 

• Total reporting flexibility 

• Can access any database 

• Online, English query language 

• Suitable for non-technical users 


C5RS is available now for DEC PDP-11 computers. 
Call or write us for complete details. 



ENTERPRISE 

TECHNOLOGY 

CORPORATION 


305 Madison Avenue 
New York, N.Y. 10165 
(212) 972-1860 
Telex: 177959 
Cable: COMPUTERS 


REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS! 

All content in this publication is 
copyrighted. 

All reprints must be purchased from 
M Systems, Inc. No other reprints are 
authorized. 

All reprints shall contain both a 
cover and a subscription blank. 


Price quotation available on request. 



2 

4 

6 

7 

8 


M.PNXT The forwards link contains a 0 to show 
that it is the end of the list. 

M.TSIZ The total size for this entry is set to a 
value of 1 but is not used by the 
monitor. 

M.SIZE The size of this entry is set to a value of 
1 but is not used by the monitor since 
the LCK bit is set in M.CTRL. 

M.CTRL The status bit LCK is set to show that 
this memory segment is not available 
for other uses. 

M.PHYA The starting physical address of this 
memory segment corresponds to the 
address of the first non-existent mem¬ 
ory on the system (divided by 64). 
Therefore, this value is the total system 
memory size (in K-bytes, divided by 64). 


2.3 RESIST — DESIRED RESIDENCY LIST 

When an entry is not currently resident in memory and 
wants to become resident, it is linked onto the end of the de¬ 
sired residency list, RESLST. The memory manager uses this 
list in a first-in/first-out basis to keep track of requests for 
memory beyond what is available in MEMLST. 

When an entry is added to RESLST. the memory mana¬ 
ger is scheduled to fulfill the desired residency request. If 
there is not enough memory available to honor the residency 
request, entries that are currently resident in memory are 
reviewed. Those which are eligible for swapping are then 
scheduled to be swapped out. Once sufficient memory is 
available, the requestor is made resident and the MCB is re¬ 
moved from RESLST and added to MEMLST. 

The first entry in RESLST is pointed to by the location 
RESLST. If no entries are in the desired residency list the 
location RESLST will contain a 0. 

Memory control sub-blocks in RESLST have the follow¬ 
ing format: 


Offset 

Symbol 

Description 

0 

M.PPRV 

Pointer to the next entry in RESLST or 0 
if this is the last entry. 

2-5 


Unused 

6 

M.SIZE 

The size of this entry in K-words. 

7 

M.CTRL 

The control bits LCK, SWP and IN are 
set to show that swap-in is desired. 

8 

M.PHYA 

This word contains either a 0 to show 
that no specific memory address is re¬ 
quired or it contains the desired mem¬ 
ory address divided by 64. 


2.4 RTS — RUNTIME SYSTEM DESCRIPTOR BLOCK 

Every runtime system that is currently installed in the 
system has an RTS descriptor block associated with it. This 
structure contains all the information about the runtime 
system, including its name, memory control information, 
disk address and characteristics. 

The RTS block has the following format: 
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Pointer to the next RTS block 

1 0 

R.LINK 



1 2 

R.NAME 


Ruritime si^steni name (RADSO) 

1 

1 4 



Default extension (RAD50) 

1 6 

R.DEXT 


Memory control sub-block 

1 8 

R.MCTL 



1 10 




1 12 



1 Size of RTS 

1 14 

R.KSIZ 



i 16 



Startina block number of RTS (LSD) 

1 18 

R.DATA 


FIP unit number 1 MSP of R.DATA 

1 20 



Block number of RTS directory entry 

1 22 

1 

R.FILE 


R.MSIZ 29 


Offset in block/2 I MSB of R.FILE 
-+- 


Residency count 


User count 


Minitiiuni Job size I Maxi muni Job size 
-+- 


Characteristics I 


E M T prefix 


R.CNT 

R.SIZE 

R.FLAG 


Offset 

0 


Symbol 

R.LINK 


R.NAME 


R.DEXT 


14 


18 


R.MCTL 


R.KSIZ 


R.DATA 


21 


22 


R.FILE 


Description 

This word contains the address of the 
next runtime system descriptor block. 
If this entry is the last RTS block in the 
list it will contain a 0. 

These two words contain the runtime 
system name in RAD50. 

This word contains the default exten¬ 
sion (in RAD50) for executable files used 
by this RTS. If a RUN command is 
issued without specifying an extension 
for the file to be executed this value will 
be used for the extension on files exe¬ 
cuted under this runtime system. 
These five words are the memory con¬ 
trol sub-block for the runtime system. 
See section 2.1 for more information. 
This word (within the memory control 
sub-block) contains the size of the run¬ 
time system in K-words. 

These three bytes contain the FIP block 
number of the first block of the run¬ 
time system image. When a runtime 
system is loaded into memory it is ac¬ 
cessed on disk by this block number. 
Byte 20 is the most significant byte of 
the block number. 

This byte is the FIP unit number for the 
disk containing the runtime system. It 
is used when loading the runtime sys¬ 
tem image and when closing the run¬ 
time system file when the RTS is 
removed. 

These three bytes contain the FIP block 
number of the block that contains the 
UFD name entry for this runtime sys¬ 
tem. It is used to close the RTS file 
when the RTS is removed. 


When DEC users demand 
quality software, we listen. 

For nine years we've been listening to DEC users's demands—demands 
for unique systems software with strong technical support. And we've 
responded with products like: 


EasyEntry The full screen data entry system 
which improves programmer and data 
entry operator efficiency. 

AIS-PL/l The easy and powerful programming 
language for scientific, commercial, 
and systems applications. 

BURCOM-11 The DEC/Burroughs communication 
tool for distributed processing 
systems. 

WP Saturn The multipurpose word processing 
software. 


If you too are a demanding DEC user, 
contact us. We’ll listen. 


d information systems, inc. 


500 Eastowne Dr. • Chapel Hill, NC 27514 • (919) 942-7801 



TERMINALS FROM TRANSNET 


PURCHASE PLAN • 12-24 MONTH FULL OWNERSHIP PLAN • 36 MONTH LEASE PLAN 


PER MONTH 
12 MOS 24 MOS 36 MOS 


DEC 


TEXAS 

INSTRUMENTS 


DATAMEDIA 


LEAR SIEGLER 


HAZELTINE 


TELEVIDEO 


NEC SPINWRITER 


QUME 


HEWLETT PACKARD 


CENTRONICS 


LA36DECwriter II. 

$1,095 

$105 

$ 58 

$ 40 

LA34 DECwriter IV. 

995 

95 

53 

36 

LA34 DECwriter IV Forms Ctrl.. 

1,095 

105 

58 

40 

LA120 DECwriter III KSR. 

2,295 

220 

122 

R? 

LAI 20 DECwriter III RO. 

2,095 

200 

112 

75 

VT100 CRT DECscope. 

1,595 

153 

85 

58 

VT132 CRT DECscope. 

1,995 

190 

106 

72 

TI745 Portable Terminal. 

1,595 

153 

85 

58 

TI765 Bubble Memory Terminal 

2,595 

249 

138 

93 

Tl Insight 10 Terminal. 

945 

90 

53 

34 

TI785 Portable KSR, 120 CPS . 

2,395 

230 

128 

86 

TI787 Portable KSR. 120 CPS . 

2,845 

273 

152 

102 

TI810 RO Printer. 

1,895 

182 

102 

69 

TI820 KSR Printer. 

2,195 

211 

117 

80 

DT80 1 CRT Terminal. 

1,695 

162 

90 

61 

DT80 5 APL CRT. 

2,095 

200 

112 

75 

DT80/5L APL 15 CRT. 

2,295 

220 

122 

83 

A0M3A CRT Terminal. 

875 

84 

47 

32 

ADM31CRT Terminal. 

1,450 

139 

78 

53 

ADM42 CRT Terminal. 

2,195 

211 

117 

79 

1420 CRT Terminal. 

945 

91 

51 

34 

1500 CRT Terminal. 

1.095 

105 

58 

40 

1552 CRT Terminal. 

1,295 

125 

70 

48 

920 CRT Terminal. 

895 

86 

48 

32 

950 CRT Terminal. 

1,075 

103 

57 

39 

Letter Duality, 55/15 RO. 

2,895 

278 

154 

104 

Letter Duality. 55/25 KSR. 

3,295 

316 

175 

119 

Letter Duality KSR, 55 CPS ... 

3,395 

326 

181 

123 

Letter Duality RO, 55 CPS_ 

2,895 

278 

154 

104 

2621A CRT Terminal. 

1,595 

153 

85 

58 

2621P CRT Terminal. 

2,750 

263 

154 

99 

730 Desk Top Printer. 

715 

69 

39 

26 

737 W P Desk Top Printer .. .. 

895 

86 

48 

32 


FULL OWNERSHIP AFTER 12 OR 24 MONTHS • 10% PURCHASE OPTION AFTER 36 MONTHS 


MICROCOMPUTERS—APPLE. COMMODORE, HP85, DEC LSI 


ACCESSORIES AND PERIPHERAL EQUIPMENT 

ACOUSTIC (X)UPLERS»MODEMS«THERMAL PAPER»RIBBONS»INTERFACE MODULES • FLOPPY DISK UNITS 



IransNetl 


1 IfC / CORPORATION 

1945 ROUTE 22 • UNION. N.J. 07083 • (201) 688-7800 

TWX 710-985-5485 
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25 


26 

27 


28 

29 

30 


31 


This byte is the offset to the name 
entry of the RTS file within the direc¬ 
tory block specified by R.FILE divided 
by 2. 

R.CNT This byte contains a count of the num¬ 
ber of jobs currently using this runtime 
system. 

This byte contains a count of the num¬ 
ber of Jobs using this runtime system 
which are currently resident in mem¬ 
ory. If the residency count is 0 the run¬ 
time system is eligible for “swapping 
out”. If a runtime system is loaded with 
the /STAY switch the high bit of this 
byte is set, ensuring that the residency 
count will never be 0 and the runtime 
system will always remain in memory. 

R.SIZE This byte contains the maximum size 
for a job image using this runtime 
system. 

R.MSIZ This byte contains the minimum size 
for a job image using this runtime 
system. 

R.FLAG If the PF.EMT bit (see 2.4.1) is set in the 
high byte of this word this low byte 
contains the special EMT prefix value. 
See the RSTS Programming Manual for 
more information. 

This byte contains a set of bits that de¬ 
scribe the characteristics of the runtime 
system (see 2.4.1). 


2.4.1 R.FLAG — Runtime System Characteristics Flags 

The runtime system characteristics flags contained in 
the word R.FLAG are defined as follows: 


Bit 

Symbol 

Description 

0-7 


Special EMT prefix (see PF.EMT below) 

8 

PF.KBM 

The runtime system can act as a key¬ 
board monitor. 

9 

PF.1US 

The runtime system is single user, non- 
sharable. 

10 

PF.RW 

Map runtime system read/write. 

11 

PF.NER 

Do not log errors occurring under this 
runtime system. 

12 

PF.REM 

Remove the runtime system image from 
memory when R.CNT becomes 0. 

13 

PF.CSZ 

Compute initial job size. 

14 

PF.SLA 

Load at the address specified by M.PHYA 
of the MCB. 

15 

PF.EMT 

Low byte of R.FLAG is special EMT prefix 
code. 


2.4.2 NULRTS — Disappearing RSX RTS 

One of the options at sysgen time is to embed support 
for the RSX emulator into the monitor. When this is done 


the RSX runtime system disappears after initiating program 
execution. 

One of the requirements of every job on the system is 
that it have a runtime system associated with it at all times. 
RSTS meets this requirement when using the disappearing 
RSX runtime system through use of the null RTS descriptor 
block. NULRTS. 

The null RTS descriptor block is not linked into RTSLST, 
the list of RTS blocks. It is only used to give the job descrip¬ 
tor block (JOB) an RTS block to point to. 

The format of the null RTS block is the same as a nor¬ 
mal RTS block. All the fields contain 0 except the following: 

Symbol Value 

R.NAME “...RSX” in RAD50 

M.CTRL LCK bit set 

R.SIZE System swap maximum 

R.MSIZ 1 


2.4.3 RTSLST — Runtime System List 

The RTS blocks are linked together in a list pointed to 
by the location RTSLST. The first entry is always the system 
default runtime system. It links to the other RTS blocks in 
the order displayed by SYSTAT. 


2.5 LIB — RESIDENT LIBRARY DESCRIPTOR BLOCK 

Each resident library installed in the system is de¬ 
scribed by a resident library descriptor block (LIB). A library 
descriptor block is very much like an RTS block in that it 
contains information about the resident library's name, 
memory control information, disk address and 
characteristics. 

Refer to the description of the .PLAS call in the RSTS 
System Directives Manual for a complete description of resi¬ 
dent library support and the use of memory windows. 

The format of a resident library descriptor block is as 
follows: 


L.PROT 29 


Pointer to the next LIB block 

1 0 

R .LINK 

Resident libari^ 

name (RAD50) 

1 2 

1 

1 4 

R.NAME 

PPN of library 

1 6 

L.PPN 

Memory control 

sub-block 

1 8 

R.MCTL 



1 10 




1 12 


1 

Library sire 

1 14 

R.KSIZ 



1 16 


Startina block ♦ of library (LSB) 

“ 1 

1 18 

R.DATA 

FIP unit number 1 

MSB of R.DATA 

1 20 


Block ♦ of library 

directory entry 

1 22 

R.FILE 

Offset in hiock/2 1 

MSB of R.FILE 

1 24 


Residency count 1 

User count 

" 1 

1 26 

R.CNT 

Protection code 1 

Status 

1 28 

L.STAT 

Library characteristics 

1 30 

R.FLAG 
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BADm®© can do it all! 


BAC into RTS / BAG into MAC / BAG into BAS BACmac is a unique software tool, running 

under RSTS/E, which provides the following 
conversions: 

■ translation from Basic-Plus "compiled" back to 
Basic-Plus source code (only the comments will 
be missing) 

■ translation from Basic-Plus into Macro source 
code, which compiled under RSTS runs faster 
than Basic-Plus 

■ translation from Basic-Plus into Macro source 
code which may be compiled under RSTS for 
execution under RTl 1 —a migration facility 

■ translation from Basic-Plus into a RUN-TIME- 
SYSTEM. Now you can write an RTS in Basic-Plus. 
The ideal solution to memory thrashing due to 
"multi-copy" applications programs. 

RSTS/E, RTl I, Macro-I I and Basic-Plus are trademarks of Digital 
Equipment Corporation. 


Please write for more information 



^ — Telecom Computer Systems, Inc. 
-r-7-r- PO Box 03285 
-•—Portland, Oregon 97203 
-Z—m- 503/286-5122 



Offset Symbol Description 


0 R.LINK 

2 R.NAME 
4 LPPN 

6 R.MCTL 

14 R.KSIZ 

18 R.DATA 


21 


This word contains the address of the 
next resident library descriptor biock. If 
this entry is the last LIB block in the list 
it will contain a 0. 

These two words contain the resident 
iibrary name in RAD50. 

This word contains the account number 
(PPN) of the resident library file. The 
project number is in the high byte. The 
programmer number is in the low byte. 
These five words are the memory con¬ 
trol sub-block for the resident library 
(see 2.1). 

This word (within the memory control 
sub-block) contains the size of the resi¬ 
dent library in K-words. 

These three bytes contain the FIP block 
number of the first block of the res¬ 
ident library image. When a resident li¬ 
brary is loaded into memory it is ac¬ 
cessed on disk by this block number. 
Byte 20 is the most significant byte of 
the block number. 

This byte is the FIP unit number for the 
disk containing the resident library. It is 
used when loading the resident library 
image and when closing the resident 
library file when the resident library is 
removed. 


22 


25 

26 

27 


28 


29 


R.FILE These three bytes contain the FIP block 
number of the block that contains the 
UFD name entry for this resident li¬ 
brary. It is used to close the resident li¬ 
brary file when it is removed. 

This byte is the offset to the name en¬ 
try of the RTS file within the directory 
block specified by R.FILE divided by 2. 

R.CNT This byte contains a count of the num¬ 
ber of jobs currently attached to this 
resident library. 

This byte contains a count of the num¬ 
ber of jobs using this resident library 
which are currently resident in 
memory. If the residency count is 0 the 
resident library is eligible for "swapping 
out". If a resident library is loaded with 
the /STAY switch, the high bit of this 
byte is set, ensuring that the residency 
count will never be 0 and the resident li¬ 
brary will always remain in memory. 

L.STAT This byte is used to differentiate be¬ 
tween an RTS block and a LIB block. If 
bit 7 (symbolically. LS.LIB) is set this is 
a LIB block, otherwise it is an RTS 
block. LS.LIB is the only bit currently 
defined for L.STAT. 

L.PROT This byte is the library protection code. 

The protection code is used to control 
access to the memory space of a res- 
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ident library. It is identical in usage to 
the file protection codes except that 
bits 6 and 7 have no meaning. 


30 

R.FLAG 

This word contains a set of bits that de¬ 
scribe the characteristics of the resi¬ 
dent library (see 2.5.1). 

2.5.1 

R.FLAG — 

Resident Library Characteristics 

Bit 

Symbol 

Description 

0-8 


Unused 

9 

PF.1US 

The resident library is a single user, non- 
sharable. 

10 

PF.RW 

The resident library may be mapped 
read/write if requested by a privileged 



user. 

11 


Unused 

12 

PF.REM 

Remove from memory when R.CNT be¬ 
comes 0. 

13 


Unused 

14 

PF.SLA 

Load at specific address. This bit is al¬ 
ways set for a resident library since li¬ 
braries must be loaded at a specific 
address. 

15 


Unused 


2.6 WDB — WINDOW DESCRIPTOR BLOCK 

A job s memory space consists of the user low segment, 
the runtime system and up to five resident iibraries mapped 
by up to seven windows. If a Job is not using any resident 
libraries the Job’s memory requirements are totally describ¬ 
ed by the memory control sub-blocks in its JDB and RTS 
blocks. 

However, when a Job attaches to one or more resident 
libraries an additional control structure is needed to keep 
track of the extra memory windows. This structure is the 
window descriptor block (WDB). 

The WDB consists of up to three small buffers of in¬ 
formation and describes up to seven memory windows and 
five resident libraries. Up to two windows and five resident 
libraries can be described with a single small buffer. An ad¬ 
ditional small buffer is required for each three additional 
windows. 

The format of the first window descriptor block is as 
follows: 


Pointer to 

next WDB 


1 0 

U.LINK 

Pointer to LIB 

descriptor 

»1 

1 2 

U. ALIB 

Pointer to LIB 

descriptor 

♦ 2 

1 4 


Pointer to LIB 

descriptor 

#3 

1 6 


Poiriter to LIB 

descriptor 

«4 

1 8 


Pointer to LIB 

descriptor 

*5 

1 10 





1 12 

U.UINl 




1 14 


Address window #1 


1 16 





1 18 





1 

1 20 



22 W.WIN2 

24 

26 

28 

30 


Offset 

Symbol 

Description 

0 

W.LINK 

if this Job has more than two win¬ 
dows in use this word contains the 
address of the second window de¬ 
scriptor block at offset W.ALIB. 
Otherwise this word contains a 0. 

2 

W.ALIB 

These five words contain pointers to 
the library descriptor blocks for up to 
five libraries, if less than five librar¬ 
ies are in use the unused entries will 
be 0. 

12 

W.WIN1 

These five words are the first ad¬ 
dress window (see 2.6.1) 

22 

W.WIN2 

These five words are the second ad¬ 
dress window (see 2.6.1) 


2.6.1 W.WIN? — Address Windows 

If a window is not in use its first word will be 0. An ad¬ 
dress window has the following format: 

0 UtNAPR 

7 UANStZ 
4 U4NLIEI 
4 WiNOFF 

8 UtNBYT 

Offset Symbol Description 

0 W$NAPR This byte contains the APR number 
for the base of the window. 

1 W$NSTS This byte contains a bit pattern de¬ 

scribing the status of the window 
(see 2.6.1.1). 

2 W$NS1Z This word contains the desired win¬ 

dow size in bytes divided by 64. 

4 W$NLIB This word is the address of the 
pointer (in W.ALIB) to the library de¬ 
scriptor for the library associated 
with this window. 

6 W$N0FF This word is the map offset into the 
library divided by 64. 

8 WSNBYT This word is the map length in bytes. 

2.6.1.1 W$NSTS — Window Status 

The current status of each window is described by the 
bits contained in the byte W$NSTS in each address window. 
These bits have the following meaning: 

Bit Symbol Description 

8 WS$WRT Write access is desired. 

9-14 Unused 

15 WS$MAP The window is currently mapped. 


Address window #2 


Uindow status I Base APR 


Window size divided by 64 


Pointer to library descriptor pointer 


Offset into library divided by 64 


Map lenath in bytes 
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2.6.Z Extended Window Descriptor Blocks 

If more than two windows are defined for a job an addi¬ 
tional window descriptor block is allocated and linked to be 
the primary window descriptor block. If more than five win¬ 
dows are defined a third WDB is allocated and linked to 
from the second one. 

The format of the second WDB is as follows: 


Pointer to third UDB I 0 H.LINK 


I 2 
I 

I 4 
I 

Address window #3 I 6 

I 

I 8 
I 

I 10 

-I 

I 12 
I 

I 14 
I 

Address window #4 I 16 

I 

I 18 
I 

I 20 

-I 

I 22 
I 

I 24 
I 

Address window #5 I 26 

I 

I 28 
I 

I 30 


The format of the third WDB is as follows: 



Alwaws 0 

1 0 U.LINK 



1 2 



1 4 


Address window #6 

1 6 



1 8 



1 10 



1 12 



1 14 


Address window #7 

1 16 



1 18 



1 20 



1 22 



1 24 


Unused 

1 

1 26 



1 28 



1 30 


The format of each address window is identical to that 
of the first WDB. See 2.6.1.1 for more information. 

In the next issue: FILE AND DEVICE CONTROL 


J - V, 


SPECIAL 

OFFER 


A wall chart showing the 
linkages between all tables 
in the RSTS/E monitor is 
available for $2.00. 

Send your requests to: 
Northwest Digital Software 
Box 2-743 
Newport, WA 99156 











i n'>' 
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Notes from a Ride on the AMTRAIN(ing) 

By Peg Leiby and Sue Smith 


Ambase is a data base management 
system offered by AMCOR. Inc. of Lx)uisville. 
KY. We recently attended the training at 
AMCOR Headquarters. 

One of the first things that become ob- 
vious about AMSCHOOL is that 
EVERYTHING seems to have a prefix of 
"AM". Please bear with the "AMing", since 
we are now AMBASE graduates. 

AMDAY 1: 

The training began early on Monday 
morning, sometime around 8:00 A.M. We 
were surprised since other classes we've at¬ 
tended tended to have shorter days. Our in¬ 
structor. Cliff Jeffries, introduced the three 
other students in the class, two from 
LIFEBOAT Associates, located in New York, 
and one an AMCOR employee trainee. AM¬ 
COR insists that the class size be small. In 
fact, to keep the classes small, they were 
running a second section of training at the 
same time with another teacher. We were 
each given a training manual with a 38 
point outline breaking down the week's 
course into the lectures and labs to be 
covered. Along with the manual, all hand¬ 
outs for the day were delivered separately in 
a packet. 

We began with an introduction to AM¬ 
BASE: an overview of the product, review of 
the file structures, methods of fielding, 
sorting, etc. To use AMBASE, application 
programs must access what is known as the 
schemata, a file in which all fields, their 
names, verification checks, aid messages, 
packing techniques, and sort definitions are 
stored. This is the “black box" of AMBASE 
which accesses the key and data files, which 
together, are known as "data-sets". Each 
data-set can be formatted up to three dif¬ 
ferent ways, which enables more than one 
kind of record of different sizes in a data 
file. This saves channels, among other 
things. Each data-set may have up to 42 dif¬ 
ferent keys, although the fewer the keys, 
the more efficient the processing. 

An overview of the features offered 
seemed a bit overwhelming at first. What 
do two BASIC + programmers know about 
terms like Screen Generator, Report 
Generator, Query Language. Code Genera¬ 
tion... ah yes, no wonder the days are so 
long—there’s a lot to learn, and we did as 
the week progressed. 


After the overview, we discussed 
eleven of the AMBASE utilities: how to 
define a dataset, display its contents, and 
modify it with a general file maintenance, 
etc., all of which are easily mastered. 

We had three lab sessions on AMDAY 
one. two students to a terminal. The labs 
that day were spent defining datasets, 
which were provided in the training manual 
on nice lay-out sheets describing the field 
and sort structures. By the end of the lab 
sessions, we had used AMBASE utilities to 
define datasets, and then to add and display 
records. During dataset definition an ascii 
definition file is created which when teco- 
ed’ for desired changes and passed thru the 
definition utility will re-define the data-set 
in a matter of minutes. Two utilities we’d 
like to mention are AMPOR and AMSTAT. 
AMPOR creates a “portrait" which displays 
file definitions, ambase control information, 
sort keys. etc. A super documentation 
utility—any time a data-set is redefined AM¬ 
POR offers immediate updates for 
documentation. AMSTAT is the statistics 
utility which returns the number of inser¬ 
tions. deletions and changes that have oc- 
cured to the key files, shows amount of us¬ 
ed and unused space of data, and gives a 
degradation analysis which is used to deter¬ 
mine key optimization. AMSTAT statistics 
are easily reset when desired. 

AMDAY 2: 

We learned how to interface AMBASE 
with BASIC+ 2 code via the AMBASE 
standard calls which access the schemata. 
The calls reviewed included 
AMOPEN—opening the dataset files. 
AMREAD and AMWRIT—reading and 
writing to the files, AMPACK and AM- 
UNPK—getting and replacing fields, and 
AMASK—the method used for all operator 
interaction and prompting. The nice thing 
about using the AMASK call is making use 
of the data dictionary (schemata) for valid 
answers, rVT$$ conversion, default values, 
aid messages, and oh yes, the BACK feature, 
which sends the program back to the last 
AMASK! By using these AMCALLS, you ac¬ 
complish one of the things that AMCOR can 
boast about its package; data independence, 
since the code written will then be flexible 
enough not to change when changes have 
been made to the file structures. By the 


way. AMBASE is now supplied as a MACRO- 
based resident library. 

There were three labs again. Because of 
time restrictions. AMCOR supplies shell pro¬ 
grams for the trainees to use and modify. 
By the end of the lab sessions we had suc¬ 
cessfully passed through the datasets which 
were defined the day before, using partial 
keys in BASIC 2. We unpacked and dis¬ 
played fields using the AMCALLS. compiled 
and TKB’d the code and ran the programs. 
The lab assignment was to give everyone in 
the dataset an immediate 10% pay raise. 
We had placed our names in the dataset the 
previous day, with huge salaries and 
naturally didn’t mind this task. We were 
both a bit humbled, however, when we 
noticed what appeared to be a loop—con¬ 
tinuous 10% increases. Our attitude became 
one of—well, so what, you know com¬ 
puters; how could we be upset about in¬ 
creases that kept us so far above the infla¬ 
tion rate. “Wait a minute,—why is my zip 
code getting larger, and larger, and 
larger..." As it turned out we not only 
were updating the zip codes by 10% to in¬ 
finity. we weren’t even getting a raise! Cliff 
didn’t seem to be mildly amused, he was 
down right laughing. He quickly showed us 
our error, which we did fix and re-run. Quite 
a long day. this one was; no swimming at 
the motel pool tonight, but a day well spent. 


AMDAY 3; 

Today we spent time discussing key 
considerations in great depth, basically to 
determine the pros and cons of having 
duplicate or blank keys defined for the 
dataset. More of the AMBASE calls were 
reviewed as well. 

The bulk of AMDAY three was spent on 
the Screen Generator, a method of quickly 
producing file maintenance or inquiry pro¬ 
grams by answering a dialogue. The AM¬ 
BASE screen generator creates code which is 
appended and compiled to the supplied util¬ 
ity shells. An ascii definition file is created 
for easy editing and re-run to make changes 
at a later time. We both found the utility 
dialogue somewhat confusing; however 
after practicing, most of the confusion was 
overcome. Calculations can be defined to oc¬ 
cur upon operator input, and data can be 
verified against other data-sets in the 
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schemata, (although not updated, one of 
the shortcomings of the ambase product as 
it is today.) The cursor/echo control can be 
defined for most terminals through their 
standard definitions. Ambase really 
generates a lot of code! 

Again, three labs, with lots of practice 
using the screen generator. We defined and 
laid out the screen with little problem and 
then added, deleted and updated fields eas¬ 
ily. Lots of strange looking zip codes... Our 
program used the calculations entered 
through the dialogue as various fields were 
updated. 

AM DAY 4: 

A thorough explanation of data-set 
relationships, called logical views, a way of 
re-defining your data into specific and 
limited groups of fields, perhaps from 
several related files. This is accomplished 
through a utility known as the subschemata 
librarian. Much time was spent discussing 
■parent" to “child" relationships as either 
one-tcM)ne, or one-to-many types. 

Much time was also spent on AMDAY 4 
learning to utilize the Report Generator 
facility. This utility is a powerful program¬ 
mer tool to quickly create reporting pro¬ 
grams. The dialogue is somewhat complex 
definitely not meant to be run by the every¬ 
day user of the system. By answering the 
utility dialogue, the entire repxirt lay-out, 
headings, details, breaks, paging, totals, etc 
can all be defined with an opportunity to 
modify the print-using formats if desired. 
The query language, which we were to learn 
on AMDAY 5, can also be interfaced with 
the report generator. The technical aspects 
of the programs we reviewed extensively in 
order to fully understand the typical 



(HOWS YOUR SPANISH) 
PEG Y SUE 


modifications users make to the actual 
code. 

During the three labs, we produced 
reports using the pre-defined datasets from 
prior days, as well as defining a 
subschemata, which was used in the report. 

AMDAY 5: 

Query Language—Among other things, 
this facility allows for special inquiries by 
non-technical people. We learned that the 
query language utility can be used in three 
different ways: directly, interfaced to any 
user program or interfaced to the report 
generator. At run time, many different field 
parameters can be selected by employing 
the basic-plus verbs, such as "if", “or", " ", 
“ unless ”, etc. AMBASE is somewhat 
deficient at this time in that only one 
dataset can be queried, however this is very 
high on the Amcor amwish list for product 
improvement. A somewhat complicated 
method to get around some of the query 
language limitations was discussed. 

The rest of the lecture was spent on in¬ 
stallation, design considerations and various 
tips. 

AMHOME: 

Overall, we found the training to be 
conducted in a very professional manner. 
Not only did we learn the product, but our 
general knowledge was also enhanced. 
After all, our experience in BASIC+ 2 was 
somewhat limited, neither of us ever having 
used the BASIC + 2 calls before. 

Much exhausted, but intellectually 
stimulated, we were both eager to return 
home to use what we learned. Cliff had 
stressed in the beginning that the best way 
to start was to go easy at first. No showing 



off with a big project. Waiting, however, 
was a complete conversion of 7 DMS-500 
mailing list files to AMBASE. with 4-up 
labels needed almost immediately. After 
defining the file and sort structures. 
AMLOAD, the utility to transfer foreign 
data to AMBASE was used. Unfortunately, 
AMLOAD was not reviewed at the class, and 
the documentation, at least for us, wasn t 
the easiest to understand. It is basically 
geared toward magtape transfer, and this 
was all from disk files. The support from 
AMCOR was excellent, we couldn t have 
asked for more. The best time to do the 
data transfers were during the night. The 
report generator isn’t able to produce 
something like 4-up labels, therefore a sug¬ 
gestion from AMCOR was to copy over and 
modify one of the utilities. (The source code 
is included with the AMBASE package for 
many of the utilities.) AMDIS, the utility 
that basically dumps out the records in a 
nice format was used. It turned into a bit of 
forced training since much of it didn’t apply 
to the code needed but before long a label 
program was produced. I found, though, 
that one of the DMS-500 files had had some 
inconsistent file lay-outs with part of the 
city tagging along the prior address lines. 
Time to learn more, with the deadline ap¬ 
proaching. With a quick AMCHG, a call to 
update non-key fields, which passed 
through the entire file (20,000) records, all 
was in order, verified by using the AMDIS 
and AMGENT utilities. 

Once the 100,000 or so labels were pro¬ 
duced and out of the way. screen 
generators, report generators and query 
language attempts were made with ease. 
All in all, a great learning experience and 
we re sure a valuable product. 



1900 PLANTSIDE DRIVE 
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CLASS 

HIGH SPEED Data Acquisition under RSTS. 
R.B. Lake, 2540 Derbyshire, Cleveland, OH 
44106. (216)932-5434. 


SECURE YOUR RSTS/E System. Write: 
Security, 471 Townline Rd., Hauppauge, NY, 
11788. 


DEC COMPUTERS AND components bought 
and sold, 617-774-4942. 


80MB CDC DISKS 8000 w/CTLR 12000 
9T tape 4000 w/CTLR 7500. 

Jon Wells 714-641-9141. 


THIRD PARTY computer maintenance. Gen¬ 
eral Electric Co., (913)967-6228. 


WOULD LIKE to exchange information on law 
enforcement systems. Livonia Police Dept., 
15050 Farmington, Livonia, Michigan 48154. 


TIMESHARING IN Claremont and Pomona. 
PDP11/34 RSTS. Reasonable. Call (714)626- 
4611. 


DEC PERIPHERALS WANTED. Douglas May¬ 
ers, Box 1067, Gambler, Ohio 43022. 


SOFTWARE SUPPORT from Free Lance 
Logic, Santa Ana, CA (714) 979-7860. 


DIGITAL BUSINESS Computers, DEC hard¬ 
ware/software, Kitchener, Ont., Canada. 1- 
519-893-4200. 


PRO-Where Professionals Meet With Profes¬ 
sionals. Pacific Recruiting Organization, 
Annie Gibbons, (408)730-5155. 


INTERACTIVE COMPUTER Services, RSTS/E 
Systems and Programming Consultant. Char¬ 
lotte, NC, 704-523-0753. 


WE BUY Used Terminals. Warner Associates, 
(212)684-6955. DEC Hazeltine. 


LOOKING FOR other 11/44’s in the South 
Texas area and also for other supermarket 
companies under RSTS. Buz Waltz, Carl’s 
Grocery Co., Inc., 1123-A E. 9th, Mission, 
Texas 78572. (512)585-4578. 


GREETINGS from First RSTS Product Man¬ 
ager, Tom Barnett. Digital Merrimack, NH 
03054. 


ANALYSIS and DESIGN, custom business 
software, facilities management, timesharing 
services, media conversions. (714)293-3200. 


CLAIMS PROCESSING - the specialists in 
hospital outpatient systems. Phone (201) 731- 
9252. 


RSTS/E BASIC+ , DIBOL Programmers 
call or send resume to Scientific Place¬ 
ment, Inc., P.O. Box 19949, Houston, TX 
77024; (713) 496-1600. 


MR. BOOKER’S Computer Concepts Is Addi¬ 
son County Vocational’s most unusual course. 


DEC SYSTEMS & Components, C.D. Smith & 
Associates, Inc., 713-451-3112. 


FIED 


Send Classified Ads to: RSTS Classified, P.O. Box 361, Fort 
Washington, PA 19034. *1.00 per word, first 12 words free 
with one year’s subscription. [Be sure to include a phone 
number or address in your message.] 


7-ELEVEN is Alive & Well in WV. Oh Thank 
Heaven! 


VAX TIME AVAILABLE. Call Ron Moehler, 
(412)321-7400, for very competitive rates. 


E.D.S. COMMERCIAL Insurance Division 
announces the Comprehensive Agents Busi¬ 
ness System, 203-678-1452. 


FOR SOFTWARE AND Timesharing call Data 
Processing Service of Findlay at 419-423- 
8575. 


FOR SALE: RPG-II License. Reasonable. 
Central Oregon Community College 

(503) 382-6112, ext. 257 


FOR SALE - IMSAI 8080 - send for list - SHCI, 
42 W. 39th St., NYC 10018. 


FOR SALE - CORE MEMORY (DEC 96K 
words). Call - L.R. Christiansen Co. 309-762- 
8886 . 


FOR SALE: IBM 029 Keypunch, $500.00. 
Phone (219)982-2141, ext. 281. 


SHEA & SHEA accountants, incorporated. 80 
stonestown, san francisco 94132. 415/661- 
6860. 


DESIRE CONTACT Educational RSTS users: 
Anderson, Los Alamos Schools. (505)662- 
3596. 


COMPUTER TIME. Information Engineering, 
Box 155, Mt. Clemens, Ml 48043. 313-286- 
8488. 


FREE PDP-11 SOFTWARE EXCHANGE. 

DPI, 3169 Holcomb Bridge Rd., Norcross, GA 
30071. 404-447-4736. 


RSTS CONSULTING. RODAV Business Sys¬ 
tems, 3351 Demott Avenue, Wantagh, New 
York 11793. 


SHA COMPUTERS. Systems for softdrink 
bottlers. A complete system for all accounting. 


MEDIA TRANSFER SERVICES - We can 
transfer your data between any of the follow¬ 
ing media: RL01, RL02, RP05, RK05, RK06, 
RK07, RX01, and 800/1600 BPI 9Track MT. We 
handle most DIGITAL directory structures on 
a fast turn around basis and also offer pro¬ 
gramming services for any special transfer 
problems you may have. Call (201)584-4026, 
Advanced Digital Data, 354 Route 206, Fland¬ 
ers, New Jersey 07836. Advanced Digital Data, 
Inc., 354 Route 406, Flanders, NJ 07836.. I.D. 
#3. 


RSTS/E SYSTEM Performance Monitoring 
Software. Bits, Bytes & Pieces. POB 730, 
Rough & Ready, CA 95975. 


DON’T WRITE - GENERATE YOUR RE¬ 
PORTS WITH RG2. Peter Dick, 267 Goldhawk 
Road, London, England. 


SOFTWARE TECHNIQUES, INC., is happy to 
announce two new employees - Jerry Schnaus 
and Kevin Herbert. 


KICK CICS — GO VAX. Brian, Canada. 


_FOR SALE_ 

FOR SALE: RX11-BA and six RP02 Disk 
Packs, 816-834-3311. 


SALE PDP 11/40 2 RK05’s 160 KB Core 
Memory. 516-929-8500-238. 


USED RK05 DISK PACKS for sale. Contact: 
Bill Ferris 203-888-1567. 


_WANTED_ 

WANTED - USED DEC Tape Drive. $7 to 
$10,000 range. Call 207-775-5601, ext. 49. 


WANTED: RSTS ECAP. MSOE, P.O. Box 644. 
Milwaukee, Wl 53201. Attn: Computer Center. 


_ HELP AVAILABLE _ 

STATISTICAL CONSULTATION, Dave 412— 
561-2569, eve., weekends. 


EXPERIENCED FREE LANCE Basic Plus, 
RSTS/E Programmer Analyst, Boston area, 
call 926-6025. 


FREE LANCE PROGRAMMER/ANALYST. 
Get the manpower to finish that project on 
time, or design and organize an upcoming 
one. 6 years RSTS experience. Box 12302, Lex¬ 
ington, Ky. 40582. 


RSTS 

RESCUE 

SQUAD 

We salvage all kinds of disasters: 


• unreadable disks 

• ruined UFDs and MFDs repaired 

• immediate response 

• telephone DIAL-UP 

• on-site 

• software tools 

• custom recovery 

Brought to you by 

On Track Systems, Inc. 

and a well known (and read) 
Disk Directory expert. 

CALL 24 HOURS 
215-542-7008 
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GENERAL 

ACCOUNTING 

MCBA applications A/P, G/L, 
P/R, A/P, INV including source. 
*750 each 

David Talbot 

Interstate Data Systems 

214 West Main 
Urbana. IL 61801 

(217) 337-1144 


« SS gg gB< 


POSITIONS AVAILABLE 

PROGRAMMER/ANALYST 
Programmer/Analyst with experience in 
RSTS/E and Basic Plus II needed to assume 
challenging position developing new retail 
point of sale systems. Systems developed will 
be for in-house use, as well as for marketing to 
other retailers. Equity position in software 
company available for the right applicant. 
Excellent salary, bonus program, group Insu¬ 
rance, and employee stock ownership plan. 
Please send resume and salary requirements 
to: 

Mr. Ahmed V. Ismail, President 
Studio Camera & Electronics 
20229 Mack Avenue 
Grosse Pointe Woods, Michigan 48236 


$200 RSTS/E* 

WORD PROCESSOR 
CBEDIT.BAS 

Single Basic-Plus* program with 
CRT input, window edit and file 
save. Add, locate, change, replace, 
delete, block move & copy, stan¬ 
dard paragraph append, etc. VT* 
series and Hazeltine terminal 
drivers. Others easy to add. 

Fully formatted output (margins, 
justify, center, underscore, 
headers, page numbers, etc.) to 
terminal, disk or line printer. Bi¬ 
directional driver for Diablo. We 
use it daily for all our secretarial 
work. 

9-Track $200 RK05$260 ppd 

I. F. Hudgins & Assoc., Inc. 
P.O. Box 10946 Houston TX77018 
Woods Martin 713/682-3651 

*TM Digital Equipment Corporation 


The FAMOUS 
RSTS PROFESSIONAL 
TEE-SHIRT 
is now for sale! 

Send size desired and $6.95 for each 
shirt to: 

RSTS TEE-SHIRT, P.O. Box 361, Ft. 
Washington, PA 19034 

Shirts available in adults sizes only: 
Small — Medium — Large — X-Large 


DELAWARE 

VALLEY 

TIMESHARING 

Eastern Pennsylvania 
Philadelphia 
South Jersey 

DEC 11/70 RSTS/E 

24 hours - 7 days 
Most commerical packages 
Custom work, Raw time 

NATIONWIDE DATA DIALOG 

70 James Way 
Southampton, Pa. 18966 
215-364-2800 


POSITIONS AVAILABLE 

RSTS/E PROFESSIONALS 

Positions now open in exciting WALL 

STREET projects. 

TOP MONEY — 

SUBCONTRACTORS WELCOMED. 
Send resume or telephone number to: 

LINK SOFTWARE INC. 

P.O. Box 208, Wall Street Station 
New York, 10268 


BASIC+ PROGRAMMERS WANTED 
Call NCA 408-245-7990, x313. 


PROGRAMMING INSTRUCTOR - COBOL. 
BASIC Plus, Excellent Salary. 

DIR Data Processing, 212-255-9322. 



DEC best values '' 

PRE-OWNED DEC EQUIPMENT 

BUYING AND SELLING 

SYSTEMS • CPUs • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 

CALL DICK BAKER (305) 561-5207 

dataware 

^ incorporated 

Intracoastal Buildir^ 

3000 NE 30th Place 

Fort Lauderdale. Florida 33306 
Telephone (305) 561-5207 ^ 



GARBAGE 
OUT — 
GARBAGE 
IN? 

A prize If 
you tell us 
what’s 
really 
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and why! 
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LIST OF ADVERTISERS 


Aardvark Software Inc.37 

Able Computer. I.B. Cover 

Amcor .p. 2 

American Computer 
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Applied Information 
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Bob “Macro Man” Meyer .p. 77 
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Corp .p. 17 
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On-Track Systems, Inc. . pp. 15, 26 
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Scientific Placement, Inc.p. 61 

SEC Computer Co.p. 65 

Sevco, Inc.p. 78 

Software Results Corp.p. 53 

Software Techniques, Inc.p. 21 

Southern Systems, Inc.p. 1 

Strategic Data Systems .p. 38 

System Industries.p. 7 

Systems Associates, Inc.p. 69 

Telecom Computer 

Systems, Inc.p. 87 

TransNet Corp.p. 85 

Tymshare Inc.p. 79 

Unitronix Corp.83 
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NEWS 

RELEASES 




Occasionally we are requested to print news that may be 
of interest to the RSTS community. We are happy to offer 
this feature to our readers. We reserve the right to print 
only as time and space permit. We cannot return photos 
or manuscripts. Send news releases to: RSTS NEWS RE¬ 
LEASE, P.O. Box 361, Fort Washington, PA 19034. 

March 19, 1981 

LOW COST SINGLE QUAD SIZE DISC CON¬ 
TROLLER THAT INTERFACES UP TO TWO 
SHUGART, MEMOREX OR FUJITSU DISC 
DRIVES TO A DEC LSMl 
Garden Grove, California — A low cost, single 
quad size Disc Controller that interfaces DEC 
LSI-11, 11/2 or 11/23 microcomputers with 
two each Shugart SA4000, Fujitsu 2301 or 
2302, and memorex 101 or 102 along with 
other hard disc drives having a Shugart 
SA4000 type interface, is now available from 
DILOG (Distributed Logic Corp.), Garden Grove, 
CA. 

Designated the Model DQ401, the uP based 
controller emulates the DEC RKV-11/RK05 disc 
subsystem and is compatible with DEC RT-11 & 
RSX-11 software. It occupies one card slot of a 
DEC or DEC compatible LSI-11 Q-Bus chassis, 
and interfaces to the drive(s) via a jumper 
selectable single or dual cable arrangement. 

Features include data buffer for the elimina¬ 
tion of data late errors on the Q-Bus, automatic 


media flaw compensation, data error checking, 
on-board bootstrap and extended memory 
addressing to 256K bytes. In addition, there is 
an automatic self-test with indicator and data 
protect. 

Price: $1,580. in small quantity. 

Delivery: Stock to 30 days A.R.O. 

DIRECT INQUIRIES TO: Mr. Les Alberts, 
Sales Manager, DILOG (Distributed Logic Corp.) 
12800-G Garden Grove Blvd., Garden Grove, 
CA 92643. Phone: (714) 534-8950. NCC '81, 
Booths 5007-5009. 



DILOG (Distributed Logic Corp.) introduces an inexpensive 
disc controller on a single quad size board that interfaces up 
to two Shugart, Memorex or Fujitsu Disc Drives to a DEC 
LSMl. 

April 27, 1981 

COMDESIGN EXPANDS MULTIPLEXER LINE 
Goleta, California — ComDesign, Inc. has 
released an enhanced version of its TC-3 
Terminal Concentrator for PDP-11 and VAX 
users. The TC-3 Concentrator reduces the cost of 
adding remote terminals to DEC computers by 
combining DZll capabilities with statistical 
multiplexing. 

The TC-3 Concentrator system consists of a 
Local Unit and one or two Remote Units. The 


Local Unit is functionally equivalent to a DEC 
DZll-A, except that the terminal ports are in the 
Remote Unit instead of on the computer distribu¬ 
tion panel. The Local Unit and the 4 or 8 port 
Remote Unit(s) are connected via a single 
communications link. A second Remote Unit can 
be connected to the Local Unit via a second 
link. 

The TC-3 Concentrator can reduce the 
communications data rate requirements to V 2 - 
to - V 4 the combined data rate of terminals 
connected to the system. The full-duplex data 
link can be synchronous or asynchronous, 1200 
to 9600 bps. No software changes are required 
to use the system. 

User response to ComDesign's enhanced 
version of the TC-3 Concentrator has been 
excellent. A recent user. Intercontinental For¬ 
warders, Inc. of Peabody, Massachusetts writes, 

... "we are impressed ... have already recom¬ 
mended the unit to a number of other RSTS/E 
users and shall continue to do so in the future." 

Price of the TC-3 Local Unit is $3,200, the 
4-line Remote Unit $1,950 and the 8-line 
Remote Unit $2,650, FOB Goleta (Santa Bar¬ 
bara). Delivery is 30 days ARO. 

For more information contact: ComDesign, 
Inc., 340 South Kellogg Avenue, Goleta, CA 
93117, (800) 235-6935 toll-free outside CA; 

(805) 964-9852 inside CA; TWX - 910-334- 
1189. 


March 20, 1981 

Louisville, Kentucky — Locally headquartered 
Amcor Computer Corp. (AMCOR), a leading 
developer and supplier of computer software, 
has been acquired by Houston-based Kaneb 
Services, Inc. 

Thomas E. Aubrey, founder, president and 
chief executive officer of AMCOR, said the 
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Total of 22 fllas In STt[1,2]??????.TSK 


.. continued from page 38 


1 Print totals 1 

C0-C4W3 

I Check "grand* total I 

QO-Q4*H 
§1/ 

Grand total of / Q4\ pi/ file/ Q4-1*N pl/s/ * Pi/ In / 
Q5\ pi/ account/ Q5-1*N pi/a/ ' pi/ for / G1 G5 
HT HI 


I End Routine 


! 


Ready 


1 Try Bore than one account 


PI 1101,•) 
Naae .Ext 
RHL100.DAT 
RHLllO.DAT 
RMLllO.TSK 
RMLIOO.TSK 
RHL400.T3I 
RHL200.T3K 


Protect 
< 60> 

< 60> 
<232> 
<232> 
<232> 
<232> 


SIlI 101,01 


lENDl 


Total of 6 files In ST:[101,0] 


Q1*E G5 ' HT HI 

• 

1 Now run the eacro I 

HXO HI MO 

1 Turn off Indirect file (like CCL entry) I 

ipEI// 


Nane .Ext Protect STt[101,1] 

RML500.TJI <232> 

RHL600.T3K <232> 

Total of 2 fllea In STi[101,1] 

Grand total of 8 files In 2 accounts for STi[101,*]7?7777.777 
Ready 


1 Exit if entered by CCL I 1 Do a directory that falls 

Ql-N EX ' ]6 ]5 ]4 ]3 ]2 ]1 ]0 

FI [0,1]FOO.FOO 

1 Examples of DIRECT.TEC output — all SKaaples use the FILES CCL 

%No files Batching specification STt[0,1]FOO.FOO 

FI a.TSK 

MaBe .Ext Protect STi[1.2] Ready 

TIB .TSK <104> 

SLOTIB.TSI <104> 


1 Exaaplea coaplete 


f 














June 1981 page 95 

RSTSF»R0FESSl0NALRSTSPR0FESSI0NAli6TSPR0FESSI0NAlJ<STSPR0reSSI0NALRSTSPR0FESSI0NALRSTSPR0FESSI0NAlJ«T5PTOFESSI0NAU^STSPRC)FESSI0NAlJ^^ 


recently completed merger "provides AMCOR 
with the necessary financial and human resour¬ 
ces to take advantage of existing and new 
market opportunities in a much earlier time frame." 

AMCOR, located at 1900 Plantside Drive, 
will continue to operate from Louisville. Aubrey 
will remain president and chief executive officer. 

Since 1970, the company has been in the 
minicomputer business providing application 
software and a comprehensive data base man¬ 
agement system for Digital Equipment Corpora¬ 
tion's PDP-11 series of computers. 

According to Aubrey, the U S. Navy uses 
the sophisticated system for management con¬ 
trol on one of its ships. 

"A similar program also is being used by 
Litemaster Products Ltd., a firm located in 
Johannesburg, South Africa," he added, "and by 
Hitachi Metals Ltd. in White Plains, N.Y." 

Other customers, Aubrey said, include 
Equitable Life Assurance Society of the United 
States and Cooper Industries in Texas. 

AMCOR will become part of Kaneb s ARC 
Automation Group, Inc., whose member compan¬ 
ies provide computer products and services to 
independent insurance agents, funeral homes 
and, most recently, have developed and mar¬ 
keted a family of microcomputer terminals for 
retail, service and commercial operations. 

According to Dr. Robert Bower, Jr., president 
and chief executive officer of ARC Automation 
Group, "AMCOR gives us the software expertise 
which, when combined with our hardware and 
computer application experience, creates new 
market opportunities for the group." 

ARC Automation Group is headquartered 
90 miles north of Houston in Bryan-College 
Station, Texas. 

Kaneb is a diversified international energy 
resources and financial services company with 
primary operations in oil and gas; coal and 
general contracting; and financial intermediary 
and specialized computer services. 

March 9, 1981 

NEW WORD-11 FILE SECURITY SYSTEM FOR 
DEC RSTS/E USERS 
West Palm Beach, Florida — RAXCO Inc. 
announces the availability of a new software 
option designed to specifically protect confiden¬ 
tial WORD-11 Files. This new option prevents 
access to classified or confidential WORD-11 
data by unauthorized personnel. Even privi¬ 
leged users may be excluded from data files 
secured by RABBIT-4 software. Coupled with 
normal security measures, RABBIT-4 will ensure 
file integrity while monitoring all file access 
attempts. 

For more information contact: RAXCO, Inc., 
3336 N. Flagler Drive, West Palm Beach, FL 
33407, Telephone (305) 842-2115. 


April 23, 1981 

SSI'S 'PEACE OF MIND' PRINTER SYSTEM 
DESIGNED FOR ZERO DOWNTIME 
Fort Lauderdale, Florida — 'The "Peace of 
Mind," a redundant printer system designed for 
users requiring zero downtime in printer func¬ 
tioning, has been announced by Southern 
Systems, Inc., (SSI) computer printer company. 

Formally called the PS-10, the "Peace of 
Mind" consists of a primary printer, a lower 
speed back up printer and a switching 
mechanism. 

The switching mechanism for the "Peace of 
Mind" can be connected with the computer and 
the two printers either with parallel or serial 
(synchronous or asynchronous) interfacing. 

Cost of the "Peace of Mind" system is 
usually less than the cost of a single comparable 
printer from a prime computer vendor, 
explained James W. Rule, SSI vice 
president/marketing. 

"The cost-efficiency of the Peace of Mind is 
even more apparent since the redundancy factor 
guarantees zero downtime and is obviously 
totally dependable," said Rule. 

Various combinations of speeds in the 
dual-printer systems are offered by Southern 


Systems. 

"A user who needs a 1,500 1pm printer may 
want the 900 1pm printer as his back-up for the 
Peace of Mind system," explained Rule. "Other 
customers may require a 900 1pm band as the 
primary printer with a 200 1pm dot matrix or a 
300 1pm band as the back-up. In each and 
every combination the cost is below that of a 
single printer from a computer vendor," said 
Rule. 

Depending on the printer combination 
within the system, costs will range from about 
$6,000 to about $55,000. 

Skjuthem Systems, Inc. headquarters is 
located at 2841 Cypress Creek Road, Fort 
Lauderdale, FL 33309, (305) 979-1000 or (800) 
327-5602, Telex 522135. 


April 10, 1981 

FINAR INTRODUCES ENHANCED SOFTWARE 
AT ANNUAL USERS' MEE-UNG 
Denver, Colorado — Mr. Michael Hulme, Mar¬ 
keting Director at Finar Systems Ltd., 
announced the availability of FINAR version 
5.05, and distributed tapes of the enhanced 
software to attendees of the Annual Users' 
Meeting held on April 9 - 10, 1981. 

FINAR, the Financial Analysis and Report¬ 


ing language, carries out budgeting, forecasting 
and modeling on DEC PDP-11 and VAX-11 
computers. The new FINAR version 5.05 offers 
worksheet consolidation — a faster and more 
efficient technique to consolidate results, as well 
as new methods of data input, enhanced calcu¬ 
lation features and improvements to the report 
generator. 

New this year to the Users' Meeting was an 
Advanced Techniques Seminar with several 
in-depth presentations on the new worksheet 
consolidation feature, efficient model writing, 
simulation and "what-if?" analysis, and how to 
get the most out of FINAR and your computer. 

The meeting concluded with discussions on 
new features to be included in FINAR version 
6 .0, and the informative user application presen¬ 
tations — this year made by an oil company that 
uses FINAR to forecast oil and gas prices in a 
fluctuating economy, a paper/pulp mill making 
long range profit plans, a CPA firm integrating 
FINAR with other systems, and a manufacturer 
of satellite communication systems that uses 
FINAR in a decentralized organization. 

For further information call or write: 

Michael Hulme, Finar Systems Ltd., 6000 E. 
Evans, Suite 2-300, Denver, CO 80222, (303) 
758-7561. 


How to count 
your chickens 

before they 
hatch. 

Surprises can be expensive. Even good news 

can cost money if your company is not prepared for it. 

With financial modeling you can avoid surprises 
and plan calmly for whatever the future has in store. 

FINAR is the latest financial analysis and reporting 
system. It will help you plan; 

■ Budgets ■ Project evaluation 

■ Cash flow ■ Forecasts 

■ Capital investment ■ Consolidation 

All you need is a DEC PDP-11 with RSTS or a VAX-11, 
and FINAR—the Financial Analysis and Reporting Language. 
If you’d like to know how to count your 
chickens before they hatch, call or write: 

Finar Systems Limited 
6000 E. Evans, Suite 2-300 
Denver, CO 80222 • (303) 758-7561 

New York • (212) 222-2784 
Chicago • (312) 876-1081 
Houston • (713) 960-0848 
San Francisco • (415) 956-1178 
Toronto • (416) 245-8473 


■vT?'®, 


FINAR 









Add a new dimension of speed and 
reliability to your minicomputer with 
economical, high-capacity 
BULK MEMORY from Dataram. 

The world leader in minicomputer- 
compatible disk emulation systems. 
Dataram’s wide range of disk 
emulations — twice as many 
minicomputer interfaces as anyone 
else! — brings the proven performance 
of BULK MEMORY to your 
application requirement. 

Dataram’s BULK CORE and 
BULK SEMI systems operate at speeds 
which are orders of magnitude faster 
than th^ mechanical disks which they 


replace, and do it with the reliability 
inherent in all-electronic devices. 

Whafs more, BULK MEMORY 
provides up to 8.0 MB in a ISYa'" 
chassis, and offers dual-port capability 
to enable BULK MEMORY to be 
shared by two host minicomputers. 

If you have a minicomputer and are 
looking for a way to get more for your 
storage dollar, Dataram has a 
BULK CORE or BULK SEMI system 
ready to work for you. If your 
minicomputer is not listed below, tell 
us about it. We’d like to add your 
name to our growing list of 
BULK MEMORY users. 


niEmoRv FRom the lerder 


DEC, LSI-11, and PDP are registered trademarks 
of Digital Equipment Corporation. Eclipse and 
Nova are registered trademarks of Data General 
Corporation. 


DATARAM 

CORPOR ATI OIM 


Princeton Road 
Cranbury, New Jersey 08512 
Lei: 609-799-0071 TWX: 510-685-2542 



DEC® 

PDP«>-II 

DEC 

LSI-ll® 

DEC 

PDP-15 

DATA OENERAJL 
NOVA® 

DATA GENERAL 
ECLIPSE® 

. 

ROLM 

1602 

PERKIN 

ELMER 

MODCOMP 

HONEYWELL 
316 and 516 

^ . 

BULK CORE 



y/' 



y 

< 


^. >/ . 

BULK SEMI 


✓ 

n / 


y 


y 



DUAL PORT 




y 

y 






Canada; Ahearn & Soper Ltd . 416-245-4848 • Finland: Systek OY. (80) 73 72 33 • Franca: YREL. (01) 956 81 42 • 

Hungary/Poland/Rumania: Unitronex Corporation. WARSAW 39 6218 • Italy: ESE s r.l., 02/607 3626 • Nathaiiandt: Technitron b v , (020) 45 87 55 • 

Sweden: M Stenhardt AB. (08) 739 00 50 • Switzerland: ADCOMP AG. 01/730 48 48 • United Kingdom; Sintrom Ellinor Ltd . (0734) 85464 • 

West Germany: OEM -Elektronik GmbH, 07 11-79 80 47 • Yugoslavia; Institut "Jozet Stefan”. 263-261 • Australla/New Zealand: Anderson Digital Equipment. (03) 543-2077 • 
India: Infosystems Private Limited. 79281 • Israel: Mmix Computers & Systems Ltd . 03-298783 • Japan: Matsushita Electric Trading Co , Ltd . 06 (282) 5111 




















Hotwire your UNIBUS 



ABLE deals a powerful data-communications hand 


WeVe moved 
well into data 
communica¬ 
tions and 
already have a 
fist full of 
cards that sell 
for less than 
the competi¬ 
tion but do a 
lot more. They 
all will save 
you space, 
power, bus 
loading and 
money while 
giving better 
performance, 
reliability, 
fiexibility, and 

convenience. Take a look at the 
facts, then decide for yourself. 
Along with our powerful com¬ 


ABLE DH/DM 

(16-LlNE COMBINATION DHll & DM11 
REPLACEMENT) 

INSTALLS IN: UNIBUS systems... i 
DATA RATES: 14 standard 

and a userpro^mmable A ^ 

VANTAGESi^ord transfer Hn lieu of bvte DM A 
cuts hits time in halj. 

duplex with modem control. ^^PLEMENTATION 
ADVANTAGES: On-board self-test/display. thie. 
bu^ load. 

ABLE DZ/16 

(16-UNE DZll-E REPLACEMENT) 

INSTALLS IN: VAX or PDP-ll in half DZll-E sp^e 
at 1 bus load. UNIQUE OPERA^TING ADVAN- 
TAGES: On-board LED self-test pinpoints malfunc¬ 
tion area. Built-in maintenance aid (staggered 
loop-around) provides only way to effect total panty/ 
framing error check. On-board address/vector pencil 
switches assure complete configuration control. 

QUADRASYNC/B - OR C’" 

(4.L1NE DLll REPLACEMENT/El A OR CL) 
INSTALLS IN: 1 SPC slot, 4 lines at 1 bus load, 
DATA RATES: 7 selectable rates for any of th- 
lines (150-9600). ELECTRICAL: EIA standard 
RS232C or 20 MA current low (^^/*^eive). f 
VECTOR ADDRESS SELECTION: Vector 
and address values to be set on boundaries 
OOh to 40,. 16 continuous word address 
Vector or Address. 



^ bus load 

232C ‘'^^CTRICal. ‘be 4 

SELECTIONm?’ VECTOR 

or Addr^if word 

boundary. ''‘arting values s^lLted 



*h^ !? ^'"bination^if ®od async 


munication 
package and 
world-wide prod¬ 
uct support we 
have a complete 
selection of cache 
buffer memories, 
Fastbus memories, 
DMA interfaces, 
UNIBUS repeat¬ 
ers and LSI Q-bus 
adaptors. Write for 
details. You’ll find 
out why our custom¬ 
ers consider us the 
leader among manu¬ 
facturers of UNI¬ 
BUS enhancements. 


the computer experts 

L ABLE COMPUTER, 1751 Langley Avenue, 
\ Irvnne, California 92714. (714) 979-7030. 
, TWX 910-595-1729 ACT IRIN. 

ABLE COMPUTER-EUROPE, 
74/76 Northbrook Street, Newbury, 
Berkshire, England RG13 lAE. 
(0635) 32125. TELEX 848507 HJULPHG. 




Responsive Word Proeessing 
Take Our Word For It. 





WORD-11 • WORD-11 is a complete word 

processing system. It’s responsive. It’s powerful. And 
it’s sharable on up to fifty terminals while running 
concurrently with data processing. 

WORD-11 is talented, too. Designed to work on 
Digital’s family of mini-computers, WORD-11 has all 
the standard word processing functions. For more so¬ 
phisticated requirements, WORD-11 provides multiple 
dictionaries for spelling error detection. Automatic 
index and table of contents creation. Text search and 
replace. User defined keys. User-controlled hyphena¬ 
tion. And automatic footnoting. 

In addition to standard list processing, WORD-11 
offers fast sorting. Flexible selection. And extensive 
math functions. 






















Overseas Distributors: 


And WORD-11 has been proving itself for years. 
You’ll find successful installations in small businesses. 
Fortune 500 companies, in universities and in banks — 
wherever Digital computers are in place. 

Yet despite its sophistication, WORD-11 is easy 
to learn and easy to use. It’s extremely cost effective. 
And it’s available on RSTS/E, RSX-llM and 
RSX-llM-PLUS. 

See how WORD-11 responds for you. Write for 
our brochure or call us direa. Corporate Office: 181 
W. Orangethorpe Ave., Suite F, Placentia, CA 92670, 
(714) 993-4160. Telex 182-278. New York Office: 420 * 
Lexington, Suite 647, New York, N.Y. 10170, 

(212)687-0104. 

Data Processing Design, Inc. 

AbiH>j««L’(QSDSflQ5D C OMKjIER C*S»^BUK» 


Management Information Services PTY LTD. 
Melbourne, Australia 


Jenson, LTD. 
Bristol, England 


Network Computer Services PTY. LTD. Systime, LTD. 

Sydney, Australia Leeds, England 


On-Line Computing PTY. LTD. 
Subiaco, W. Australia 





